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1 MODULE exch$init ZTITLE "INIT verb dispatch and misc routines’ 


oo 
ae 
M—OOONOUS Wh — 


; 1 

; ( 

; ; : IDENT = *V04-000' 

; ¢ ¢ We eeteiatin ct (EXTERNAL=LONG_RELATIVE, NONEXTERNAL=WORD_RELATIVE) 
; = 

yy : BEGIN 

: 8B 43 1 i peeeeeerererererrererereeeeeeeeeeterteeererererereeeeeeeeereeeeereeeeeeeeees 
: 9 1 !e 

; Ww 010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; \§ pots : :: ALL RIGHTS RESERVED. ef 
; ° * 
; 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 16 R218 1 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: \} dh : - TRANSFERRED. * 
; Hid * 
; $3 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; ¢ 00 ; 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; Z 80 Z : ‘* CORPORATION. * 
; Mil * 
; 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; : B8 $ : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 : . 
3 28 0028 1 !* * 
3 9g 00 9 1 lee eee ee Ree RRAAAAAAAKeA HARA AAH THETA e AKA ReeeeAeeeKeeReeKAeKeeeeKeeeee 
: 0 00 1 

3 ‘ 0031 1 !+¢ 

3 ¢ BB § : , FACILITY: EXCHANGE - Foreign volume interchange facility 

: r a8 7 : ABSTRACT: Primary action routines for INIT verb 

; 6 0036 | | ENVIRONMENT: VAX/VMS User mode 

3 8 0038 | i AUTHOR: CW Hobbs CREATION DATE: 04-Jan-1983 

: 40 $040 1 i MODIFIED By: 

; (41 0041 1! 

; 4g 0042 1! v03-002 CWwH3002 __ Cl Hobbs 12-Apr-1984 

; rb 004 : Signal a specific error for an attempt to access a remote node 
; 45 1 | 

i: «46 1 !- 

; «47 1 

3 $8 04 : : Include files: 

; 50 50 1 MACRO Smodule_name_string = ‘exch$init' %; ! The require file needs to know our module name 
; ¢} 3 ! REQUIRE *SRCSTEXCREQ' ! Facility-wide require file 
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le table of contents 


ZSBTTL ‘Module table of contents’ 


18 5° 1 
1 ~ep-1 


eu as 


c-~ 


Module table of contents: 
FORWARD ROUTINE 


4 init.dosi1_init, 
60 5 init_foreign_close, 
61 § init_foreign_create, 
$¢ init_ foreign open. 
6 : init_init : ROVALUE, 
64 exchSinit_initialize, 
65 0 init rtll_init, 
08 1 init _zero_home_blocks 
4 : ; 
$8 EXCHANGE facility routines 
71 EXTERNAL om hry 
7 exch$cmd_cli_get_integer, 


exch$cmd_parse_filespec, 
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i ie 
Ouse 
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a ee ad td a td ed od 8 dw 8 8 dd 8 


a a ed a td wd dd “dS dd dd 


8 
9 exch$io_dos11_frewind, 
0 exch$io_dos11_set_density, 
1 exch$io_dos11_write_tape_mark, 
77 ¢ exch$io_rtil_write, 
78 exch$moun_vms_mount, 
79 & exch$rt11_format_current_date : NOVALUE jsb_ 
0 5 exch$rtacp_verify_directory, 
1 § exch$util_Tile_error, 
Hf exch$util_namb_release : NOVALUE, 
+ 8 exch$util-vm_aTlocate_zeroed, 
4 exch$util_vm_release : NOVALUE, 
85 0 exch$util_vol_getdvi, 
86 1 exch$util“volB_release : NOVALUE, 
7 ¢ exch$util_voib_allocate 
He i ' 
+ 5 : Equated symbols: 
9 $ ‘LITERAL 
4 8 : H 
44 : } Bound declarations: 
97 § ‘BIND 
98 : H 
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DOS~11 volume init processing 

Close a foreign volume 

Open a file to a foreign virtual volume 
Open a file to a foreign device 


etups 
Main action routine 

RT-11 yolune init processing 
Zero Files-11 home blocks 


Get the value of an integer qualifier 
Parse a file specification 

Rewind the sequential device 

Set magtape density 

Write a tape mark 

Write blocks to RT11 device 

Perform VMS $mount service to mount volume 


Check for valid RT-11 directory 
Signal RMS error 

Release name block 

Allocate virtual memory 

Release menery 

Get device information 

Release volume block 

Allocate volume block 
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Sep-19 
st Rat ROUTINE init_dosll_init = ZSBTTL ‘init_dosil_init’ 
lee 
FUNCTIONAL DESCRIPTION: 
Perform dosi1 volume specific init actions 
INPUTS: 
none 
IMPLICIT INPUTS: 
work area for INIT 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
Success or worst error encountered. 
SIDE EFFECTS: 
dosi1 tape will be initialized 


EXCHNG.SRCJEXCINIT.B32;1 
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Sdbgtrc_prefix (‘init _dosll_init> '); 


LOCAL 
ens, 
dosv : $ref_bblock, 
: Sref_Bblock, 
status 


h$a_gbl Cexcg$a_init_work] : $ref_bblock, ! pointer to our work area 
t {th oe :$ 


xC 
ni nit$a_vo ref-bblock ! pointer to exchange VOLB structure 


$block check (2, .init, init, 604 
$Sblock_ check (2, .volb, volb, 605 
Make sure that we can do it 

if NOT .volb Cvolb$v_write] 

THEN 


Sexch_signal_return (S$warning_stat copy Cexch$_writelock), 2 
-volb Cvolb$l_vol_Tdent_lenJ, volb Cvolb$t_vol_ident]); 


P 3 
or 5s 
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Allocate and initialize our volb extension if it does not exist 


dosv = .volb fvolb$a_vimt_speci fic); 
a eed EQL 


BEGIN 

dosv = exch$util_vm_allocate_ zeroed (exchblk$s_dos11); 
olb Cvolb$Sa_vfmt_specific] = .dosv; 
block_init T.dosv¥, dos11); 

FELONS, ESS SOR ze (dosv Cdos11$q_entry_header]); 


<m 
p+ 


Get the memory 

Stash the address in the volb 
Set the type 

Init the directory cache queue 


—e mw e 


Rewind the magtape, then write two tape marks, then rewind the tape again 
if (status = exch$io_dos11_rewind (.volb)) 
THEN 


eee = exch$io_dosll_write_tape_mark (.volb)) 
eee = exch$io_dosll_write_tape_mark (.volb)) 
status = exch$io_dosil_rewind (.volb); 
If the /DENSITY qualifier is present, set the drive to the new density. Tape must be at BOT to change den 
75 If .status 
f iY .£' tSpresent (ZASCID "DENSITY') 
status = exch$io_dos!1l_set_density (.volb); 
} If there is a cached ‘‘directory’’, release it 
a -dosv (dos11$a_entry_flink] NEQ 0 
WHILE (Cent = $queue_remove_head (dosv [dos11$q_entry_header])) NEQ 0) 
exch$util_vm_release (dosllent$k_length, .ent); 
RETURN .status; 
END; 
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TITLE Excus init INIT verb dispatch and misc routines 
\v04-000\ 
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IDENT 
-PSECT EXCHSINIT_PLIT,NOWRT,2 
00 59 54 49 53 4E 45 44 Q0000 P.AAB: .ASCII \DENSITY\<0> ; 

O10 O08F 00008 P.AAA: .LONG 17692 27 : 

0000000" 0000C -ADDRESS P.AAB ; 
-EXTRN EXCHSCMD_CLI_GET_INTEGER 
-EXTRN EXCHSCMD PARSE FILESPEC 
-EXTRN EXCH$10_60S11_REWIND 
~EXTRN EXCH$IO_DOS11—SET_DENSITY 
~EXTRN EXCHS 1000511 WRITE_TAPE_MARK 
-EXTRN EXCHSIO-RT11_QRITE 
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nit_dos Sep-19 . 
t_dos11 EXCHNG. SRCJEXCINIT.B32;1 
sEXTRN EXCH 
-EXTRN EXCHSRT ri. vORMAT cu CURRENT DATE 
SEXTRN EXCHSRTACP VERIFY D CTORY 
“EXTRN xc MSUTIL FIL ERROR’ 
SEXTRN EXC HU UTIL “NANG” REL EAS 
SEXTRN EXCH UTIL“ VM "ALLOCATE _1EROED 
SEXTRN EXCHSUTIL-VM-RELEASE ~ 
-EXTRM EXCHSUTIL-VOC_GETDV 
«EXTRN pxCHSUTIL_VOLB_ RELEASE 
EXTRN EXCHSUTIL~VOLB~ ALLO ATE 
-EXTRN EXCHSA_GBC, EXCHSUTIL_BLOCK_CHECK 
EXTRN EXCHS oni téLbe 
.EXTRN CLISPRESENT 
-PSECT EXCHSINIT_CODE,NOWRT,2 
0OFC 000 ENTRY INIT_DOS11 my Save Af? R3,R4,R5,R6,R7 
7 000000006 EF 9E 0000 MOV EXCHS$IO DOS RITE “MARK, R7- 
§ 00000006 EF 9€ 000 MOVAB at to posit EuIA 
00000006 FF H 0 19 MOV EXCHSUTIL_BLO x cH Ck, ie 
53 000000006 EF 0¢ 1 ADDL3 #16, EXCHSA_GBL 
54 $3 04 (1 1F ADDLS #4 RS), RZ 
eae ie ea MOVE 4783833. R2 
30 63 DO O002F MOVL tiie RO 
6 if} 0032 JSB EXCHSUTIL_BLOCK_CHECK 
3 64 DO 00034 MOVL (R4), R 
Bf ne Oe ORE be ose Rov. oggreny9, v2 
50 53 D0 b0z8 MOVL ag RO 
16 0046 JSB EXCHS Mt BLOCK_CHECK 
22 48 = A3 5 £0 00048 BBS #5, 72(R3), 1$ 
50 000000006 8F bo 0040 MOVL #EXCH WRITELOCK, STATUS2 
50 7 BA 00054 BICB2 #7, STATUS2 
52 0 00057 MOVL STATUS2, TEMP 
69 A3 9F 0005A PUSHAB 105(R3) 
65 A3 DD 0005D PUSHL UOTE ) 
Q DD 906 PUSHL # 
000000006 0 4 PB 3 CALS bee LIBSSIGNAL 
4 98 D nite MOVL TEMP, RO 
04 OO6E RET 
52 54 a3 DO 00 ¢f 1$: MOVL B4(R3), DOSV 
1 99 BNEQ $ 
6 dD 0007 PUSHL @# 
000000006 EE 1 FB 0007 CALLS #1, EXCHSUTIL_VM_ALLOCATE_ZEROED 
D Ove MOVL RO. bosy 
54 «CA D MOVL  DOSV, 84(R3) 
8 A 3 MOVW #54, g(Dos¥) 
A A E MNEGB #3, 10(DOSV) 
5 12 =A MOVAB 1 (nosy), RO 
60 D 1 MOVL RO, (RO) 
04 AO D 94 MOVL RO, 4(RO) 
DD 00098 2$: PUSHL R 
6 1 Ff 9A CALLS #1, EXCH$10_DOS11_REWIND 
4 0D % MOVL RO STATUS 
B 4 £ A BLBC = STATUS, 
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fbec000 init.d 1“init 12286871382 99:39:05 EXCHNG SRC LEXEINIT BS3—1 
i) A PUSH a 
7 F A CALLS #1, EXCHS10_D0S11_WRITE_TAPE MARK 
4 dD A MOVL RO TAT 
0 4 €£ AB BLBC —_ STATUS, 
3 DD A PUSHL ; 
7 1 F B CALLS #1, EXCH$IO_DOS11_WRITE_TAPE_MARK 
4 0 D 8 MOVL RO PATS 
5 4 €£ B BLBC = STATUS, 3$ 
3 DD B PUSHL R3 
$6 9 F BB CALLS #1, EXCH$I0_DOS11_REWIND 
4 0D pes MOVL RO od 
1A 54 7 o¢ BLBC _—«s STATUS, 3$ 
0000° CF F C4 PUSHAB P.AAA 
000000006 00 1 FB goce CALLS #1, GL ISPRESENT 
0c 9 E OOCF BLBC RO, 3$ 
DD 000D2 PUSHL R 
000000006 F 4 FB 00004 CALLS #1, EXCH$I0_DOS11_SET_DENSITY 
4 0 OD ined MOVL RO, STATUS 
12 A2 D 0 3$ TSTL 18(DOSV) 
Oe NOE BEQL 7$ 
50 12 B2 OF BES 4$ REMQUE @18(DOSV), _T_ 
9 1C 900E BYC 5$ 
3 04 QOOED CLRL ENT 
9 11 OOOEB BRB 6$ 
53 0 00 OOED 5$: MOVL T_. ENT 
9p 13 OOOFO 6$: BEQL 7$ 
DD OOOF2 PUSHL ENT 
1C DD GOOFS PUSHL ao 
00000000G EF 02 FB QO0F6 CALLS #2, EXCHSUTIL_VM_RELEASE 
fr 11 OOOFD BRB 
50 4 DO QOOFF 7$ MOVL STATUS, RO 
04 00102 RET 
; Routine Size: 259 bytes, Routine Base: EXCHSINIT_CODE + 0000 
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-Sep- EXCHNG.SRCJEX 
SL ORAL ROUTINE init _foreign_close = ZSBTTL ‘init _foreign_close' 
i+¢ 
i FUNCTIONAL DESCRIPTION: 
Close a temporarily opened foreign device. 
INPUTS: 
none 
IMPLICIT INPUTS: 
INIT verb work area 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
work area 
ROUTINE VALUE: 
Success or worst error encountered. 
SIDE EFFECTS: 
A file is no longer open on the volb 


INIT.832;1 
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$dbgtrc_prefix (‘init_foreign_close> '); 


LOCAL 
status 
BIND 
init = exch$a got Cexcg$a_init_work] : $ref_bblock, ! pojnzer to our work area 
volb = .init Linit$a_volb] : $Bblock, ' Pointer to exchange VOLB structure 
fab = .volb Cvolb$a_fab] : Sbblock ! File Access Block for the volume 


Sblock_check (2, volb, volb, 575); 
Close the open RMS Link to the volume 
if NOT (status = $close (fab = fab)) 
RETURN exch$util_file_error (exch$_closeforeign, .status, fab, .fab Cfab$l_stv]); 
RETURN .status; 
END; 
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3; Routine Size: 


EXCHSINIT_CODE 


9:01 AX-11 Bliss-32 v4 % 742 
5 EXCHNG. SRCJEXCI .1f.832;1 
SYSSCLOSE, EXCHS$_CLOSEFOREIGN 
INIT -fOREIGN CLOSE, Save R2,R3 
no H$A_GBL, RO 
¥ 
RO} 
ila? R2 
Chgut ie _BLOCK_CHECK 
‘ SYSSCLOSE 

STATUS 
Atys, 18 
( 
M<R2,R3> 
HEXCH * CLOSEFORE 

, EXCHSUTIL_FI 


STATUS, RO 
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74 
oreign_create -Sep- EXCHNG.SRCJEXCINIT.B32;1 (5) | 
ZSBTTL ‘init_foreign_create' | 

| 
| 


; & ‘8 1 GLOBAL ROUTINE init_foreign_create = : 
; 5 4 BEGIN : 
: 5 rk i ; 
: 3 0 29 FUNCTIONAL DESCRIPTION: : 
; oY 1H Create a foreign virtuai volume with RMS so that we may initialize it. : 
: 26 8¢ $i inputs: | ; 
; 26 55 : : 
> 264 § : none 

; 265 : 

; 26 ! IMPLICIT INPUTS: 

; 26 5 ! 

: re tre namb - name block describing the device 

i 970 O36¢ ¢ | OUTPUTS: 

; z 0364 none 

i gr O366 2 | IMPLICIT OUTPUTS: 

; 4} b3e8 volb = volume block which will describe the mounted volume 

; 8 0570 { ROUTINE VALUE: 

; seo B36 Success or worst srror encountered. 

; 282 0374 2 | SIDE EFFECTS: 

; 28 0375 : 

3; 284 0376 : lots 

et El 

; 287 0379 $dbgtrc_prefix ("init_foreign_create> '); 

3 see 0380 

; 289 0381 LOCAL 

; 290 bag en, 

2 en: ee 

; rt, 

3 35 038s status 

; 294 0386 : 

i $86 0388 5 BIND 

> 297 0389 init = exch$a abl Fexcgsa. init work) : Sref_bblock, ! pointer to our work area 

; 298 0390 fildesc = init Linit$q_device] : $bblock, ! file name 

: 299 0391 namb = .init init$a_nanb) : $bblock, ! Pointer to exchange NAMB structure | 

; 300 $338 volb = .init Cinit$a_volb] : $bblock, ! Pointer to exchange VOLB structure 

; 301 39 fab = .volb Cvolb$a_fab] : $bblock, ! File Access Block for the volume 

3 BS 0394 rab = .volb Cvolb$a_rab $bblock, ' Record Access Block for the volume 

; 2 $2 nam = .volb yo,ese nam) : Sbblock ' RMS name block for the volume 

: Re 309 dev_desc = namb ([namb$q_device] : $desc_block ! Pointer to the device name 

: 30 398 , 

3 Of 399 $trace_print_lit (‘entry'); 

; 308 400 2 $block=check"(2, .init, init, 630); | 

: 309 401 $Sblock_check (2, namb, namb, 651); 

; 310 402 Sblock-check (2, volb, volb, 652); 
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-1984 00:59:01 
eats ri 99:38: 5 
Copy the input name to the volb for the signal 
Len = MINU (volb$s_vol_ident, .fildesc_Cdsc$w_length]); 
cuenoye (.len, .fildesc dsc$a_ ointer], volb Cvolb$t_vol_ident]); 
volb [volb$l_vol_ident_lenJ = clen; 

Determine the number of device blocks 


ien = (BEGIN 
LOCAL 


bmax; 
bmax = miNu (65535, .init Cinit$l_q_allocation]); 
-bmax EQL 0 


IF 
THEN 

bmax = 494; ! Default to single density diskette 
if g init Cinit$l_q_allocation] GTRU .bmax 


Sexch_signal (exch$_rtll_toomanyblk, 1, .bmax); 
END): 
Determine the number of directory segments, so that we can put a floor on the size of the file 
snum = (SELECTONE true OF 


AX-11 Bliss-32 V4.0-742 
EXCHNG. SRCJEXCINIT.B32;1 


-init Cinit$l.q segments] NEQ 0) : -init Cinit$l_q_segments); 
-len LEQU 512] : 1; 
-len LEQU 9 } : 4; 
-len LEQU 12288) : 16; 
bpINERUI SE2 : 31; 


1 Apply the floor and determine the number of blocks 
start = rtl1%k_root lock + (2 * .snum); 
len = MAXU (.sftart+32, .Len); 

volb Cvolb$l_devmaxblock] = .len; 

wolb Cvolb$l_volmaxblock] = .len; 

Init the RMS blocks for the volume 


$fab_init ( 


' Make it at least 32 blocks for files 
' We need to save it here too 
! We need to save it here too 


FAB = fab, ' Volume FAB 
ALQ = .len, ' Allocation quantity ; 
FAC = “919.661 PUT) ' Block I/0, read and write 
FNA = .fildesc Cascfa_pointer], ' Set name addr 
FNS = .fildesc dsc $w ge ' Set name size 
DNA = yeult BYYE ('VIRTUAL.DSK'), ' Default name address 
DNS = 11 ' Default name size 
MRS = 512, ' Records size 
RAT = CR, : serevage return 
RFM = FIX ' Fixed length records 
NAM = nam); i Name bloc 

Srab_init ( 
RAB = rab, ' Volume RAB 
ROP = B10, ' Block 1/0 
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48 53 


; 60 FAB = fab); ! FAB addr 

5 p re Snam_init ( 

; P NAM = ' File name block 

; P 046 RSA = -volb Cvolb$a_rsbuf], i Result name addr 

; P 04646 RSS = nam$c_maxr xt ' Result name size 

: P 0465 ESA = .volb Cvolb$a_esbuf], ! Expanded name addr 

: 128 ESS = nam$c_maxrss); ! Expanded name size 

; o8 } Create and connect to the volume 

; 79 if NOT (status = Screate (fab = fab)) 

3 % RETURN exch$util_file_error (exch$_createvirt, .status, fab, .fab Cfab$l_stv]); 
; rt: Now put as much of the result name into the volb as we can 

; 226 ien = pin (volb$s_vol_ident, .nam (nam$b_rsi] 

; 47 CHSMOVE (.Len, .nam Cnam$l rsa], volb Cvolb$t 3 ident)); 

; 0478 volb Cvolb$l_vol_ident_len] = .len; 

3 tt volb Cvolb$w_channel] = .fab Cfab$l_stv]; ! Save the channel number (NFS ==> user mode channel) 
3 sh ir wot (status = $connect (rab = rab)) 

; Be r RETURN exch$util_file_error (exch$_createvirt, .status, fab, .rab Crab$l_stv]); 
; Bee Set the volume format and other bits and pieces 

; 0488 2 volb [volb$b_vol_format] = volb$k_vfmt_rt11; 

3 0489 volb Cvolb$v_wrife) = true; 

3 oh 4 volb Cvolb$v_virtual) = true; 

; 4 Write the last block to set the eof block correctly 

; Bees if a (status = exch$io_rti!_write (volb, .volb Cvolb$l_volmaxblock]-1, 1, exch$io_rtll_write)) 
; 0496 RETURN .status; 

; 0498 2 RETURN true; 

; 0499 1 END; 


.PSECT EXCHSINIT_PLIT,NOWRT,2 
44 2— 4C 41 55 54 52 49 56 00010 P.AAC: .ASCII \VIRTUAL.DSK\ 
.EXTRN EXCH$_RT11_TOOMANYBLK 
TEXTRN SYSSCREATE, EXCHS_ CREATEVIRT 
“EXTRN SYSSCONNECT 


-PSECT EXCHSINIT_CODE .NOWRT,2 


OFFC 00000 ENTRY INIT FOREIGN. CR ATE, Save R2,R3,R4,R5,R6,- 
50 000000006 ef 10 ¢1 00002 ADDL3 at + EXGHSA.GBL, RO 
8 60 00 OO00A MOVL 
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0346 | 


; 0389 | 


0 90 | 
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EXCHSINIT NIT verb dispatch and misc routines 1hese -1984 7:59:01 AX-11 Bliss-32 v4.0-742 Pa E 
v0s-000 Sete. Noretan beecte 10-36b-198e 99:39:05 — LeXcunc’sResexcINt i Bso—1 ve i V 
OC AB OOF PUSHAB 12(R8) ; | : 
3 68 D 1 MOVL (RB), R3 + 0391 : 
046 AB OD 1 MOVL  4(RBS, R7 i: 0396 : 
. 10 a? D 1 MOVL 1e(R2}, R6 + 0393. ; 
A 14 AZ D 1B MOVL : (R7). R10 + 0394 | ; 
9 18 A? D 1F MOVL 4(R7),_R9 ; 0395 | : 
é 002¢00F r 2 3 move 883855, R2 : 0400 | : 
76 BF ¢ A MOVZWL ff Ri : ; 
0 8 DO 0005 Ov. RB, RO : | ; 
00 0 9096 F if} 0 i JSB EXCHSUT -BLQCK CHECK : ; 
2 10A OF F p 0 OVL  #17432823; R2 ; 0401, ; 
77 —s«aBF ¢ F MOVZWL #631 R : ; 
0 3 D 44 MOVL  R3, RO : : 
000000006 EF 16 0047 JSB EX WSUTIL BLOCK CHECK : : 
52 041B00F F p 004D MOVL #6 87 579; R2 ; 0402, : 
31 027 F 3C 00054 MOVZWL 6 R1 : : 
0 7 00 00059 OVL  R7, RO : ; 
000000006 EF 16 0056 $B EXCHSUTIL_BLOCK_CHECK : ; 
50 00 BE 3¢ 0006 MOVZWL @0(SP) ; 0406 | : 
0080 8F B1 00066 CMPW ORO, «#12 ; : 
04 1B 00068 BLEQU 1$ : : 
50 80 8F 9A 0006D MOVZBL #128, RO ; : 
58 50 00 00071 18: MOVL. RO, LEN : : 
7E 6E 04 Ci 00074 ADDL3 #4, (SP), =(SP) + 0407 : 
9E 0D 00078 PUSHL  a($P)+ : | ; 
69 A? 3 5B 28 OO07A MOVC3 LEN, a(SP)+, 105(R7) F | : 
65 A 58 DO 0007F MOVL L N, 101(R75 + 0408 F 
50 1¢ «AB DO 00083 MOVL (RB), RO + 0415 ; 
QOOOFFFF  8F 50 1 00087 CMPL RO, #65535 : ; 
0S 18 OO8E BLEQU : F 
50 FFFF 8F 3C 000 MOVZWL #65535, RO ; : 
52 50 DO 00095 2s: MOVL RO, BMAX : : 
05 12 00098 NEQ + 0416 ; 
52 O1EE 8F 3C OOO9A MOVZWL #494, BMAX : 0418 ; 
52 iC AB D1 QOO9F 38: CMPL =. 28 (RB), BMAX ; 0419 : 
11 1B “90A3 BLEGU 4$ : ; 
52 0D OAS PUSHL BMAX > 0421 ; 
01 DD O0A7 PUSHL #1 : ; 
000000006 8F DD J00A9 PUSHL HEXCHS RT11_TOOMANYBLK : ; 
000000006 00 03 FB OOOAF CALLS #3, LIBSSIGRAL : : 
58 : DO 00086 4$: MOVL : 9432 3 
24 As DS 00089 TSTL 6 (RB) + 0429 ; 
06 13 0008C BEQL : : 
50 24 =A 06 OBE MOVL 6(R8), SNUM ; : 
gD C BRB : : 
00000200 =«&F B D1 000C4 5S: CMPL LEN, #512 + 0430 | ; 
05 1A 000CB BGTRU ; | j 
50 i 00 0 CD MOVL #1, SNUM : : 
1F 1 D BRB : ; 
00000800 BF 38 D1 Op 6$: CMPL LEN, #2048 ; 0431 | F 
6 1A 000D BGTRU : : 
50 4 00 00008 MOVL #4, SNUM : | : 
11 D BRB 9$ F : 
00003000 «BF 58 pt £0 7$: CMPL LEN, #12288 > 0432 ; 
05 1A OO0E BGTRU &$ : ; 
50 if DO 000E9 MOVL #16, SNUM : ; 
03 11 OOOEC BRB 9$ : : 
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000000006 9 
00000000G_ EF 
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EXCHSINIT NIT verb dispatch and misc routines 16-Sep-1984 AX-11 Bliss-32 it’s -742 Page 14. 
v06 - it foreign, Create 14- “e 38 99: 33: i EXCHNG.SRCJEXC CIN -832;1 ’ ast 
58 A? 6 OID 168: ROVE. #3, BB(R7) + 04 | 
a ? $5 : 108 BISB2 #46, ota?) : B90. 
00000000G_ EF F 195 PUSHAB EXCHS$IO_RT11_WRITE : 494 | 
1 bp He: cuSM #1 3 
7E 44 A7 . 1&4 SUBL #1, 68(R7), -(SP) g | 
7 0D OO1E9 PUSHL 7° : 
000000006 Ff 9s FB QOI1E CALLS #4, EXCHOIO. RT11_WRITE g 
8 0 oO opi MOVL RO, STATUS 3 
04 58 €8 OO1F BLBS STATUS, Ves : 
50 58 dO 001F8 MOVL STATUS, RO ; 0496 | 
04 001FB RET : 
50 01 DO OO1FC 15$ MOVL #i, RO 3; 0498 
04 OOTFF RET ; 0499 
; Routine Size: 512 bytes, Routine Base: EXCHSINIT_CODE + 0150 


Ra 


ee ee ee 


; <1 1 SL ORAL ROUTINE init_foreign_open = ZSBTTL ‘init_foreign_open' 

; 41 j 164 

; 41 : 

3 ai : : FUNCTIONAL DESCRIPTION: 

; ah? Open a foreign device with RMS so that we may initialize it. 

; ri : i INPUTS: 

3 $18 ' 

3; «(41 10 : none 

; 420 1 : 

3 2 1 \§ IMPLICIT INPUTS: 

; 2 § 13 namb - name block describing the device 

: 425 aE i OUTPUTS: 

3; 4 $ 51 ' 

; 4 218 ! none 

; 428 51 ! 

3 : 2 ; Y IMPLICIT OUTPUTS: 

; ? 1 ; § volb = volume block which will describe the mounted volume 

: 4 ; 05 4 i ROUTINE VALUE: 

; 2 5 5 $ Success or worst error encountered. 

: 437 5208 2 | SIDE EFFECTS: 

3 46 0529 ' 

; 439 0530 ! lots 

; 440 0531 bee 

3; 6441 B § 

3 rr 2 $dbgtrc_prefix ("init_foreign_open> '); 

: 464 $8 5 2 LOCAL 

3; 4465 5 status 

3; 644 5 3 

; «44 5 $ 

3 446 5 BIND 

; 446 540 init = exch$a got se Cexcg$a init work] : $ref_bblock, ! porter to our work area 

: 450 0541 namb = init a_namb  $Bblock, ' Pointer to exchange NAMB structure 
; 451 246 volb = .ini initservot : $bblock, ' Pointer to exchange VOLB structure 
: $26 3 fab = .volb [volb$a_fab : $bblock, ' File Access Block for the volume 
3; 6 44 rab = .volb volbsa_ rab] : $bblock, ' Record Access Block for the volume 
3; 6546 545 nam -volb > b$a_nam Sop tocs ' RMS name block for the volume 
3 $3? 246 ao dest = ned namb$q_ device : $desc_block ! Pointer to the device name 

: re] 348 

; 4658 54 Sblock_check (2, fait. init. oh) 

3; 459 329 $Sblock-check (2, namb, namb 2 $3: 

3 re 5 $block-check (2, volb, volb, 573): 

: 66 5 ' Get the device information 

: 46 4 ! 

: 464 5 

; 6 


if NOT (status = exch$util_vol_getdvi (dev_desc, volb)) 
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EGIN 
o- signal (exch$_accessfail, 1, dev_desc, .status); 
BE TURR -Status; 


1 
EXCHNG.SRCJEXCINIT.832;1 (6 


Look at the device characteristics and make some decisions 


BEGIN 
N 


END; 


REGISTER 


! scope ‘‘devbits"’ 
devbits = volb Cvolb$l_devchar]) : $bblock; 
must_have, cannot_have; 


! We need to make sure that the thing is at least similar to a disk or tape. First define masks for all 
; required and ail prohibited device characteristics 


if 
THEN 


-devbits Cdev$v_rnd] 


BEGIN ! bits for "disks" 

must_have = (dev$m_rnd OR dev$m_fod OR devsn shr OR dev$m_avl on dev$m_idv OR dev$m_odv OR dev$m_dir 
cannot_have = (devSm_rec OR devSm_ccl OR trm OR dev$m_sdi OR dev$m_sqd OR devSm_spl OR devSm_o 
a OR dev$m_net OR dev$m_gen OR dév$m_mbx OR dev$Sm_dmt OR dev mortm); 


5 
BEGIN ts for ‘tapes 


must_have = (dev$m_sqd OR dev$m_fod OR Ske 52"! . yeegs tév On dev$m_odv); 
cannot_have = (deySn. ccl OR devSm_trm OR devSm_spl OR dev$m_o 
ae R dev$m_net OR déev$m_gen OR dev m_mbx OR dey a _dmt OR dev$m_rtm); 


If we are missing any ‘‘must_have"’ items or if we have any ‘‘cannot_have’’ items, scream and shout 


if 


_'{t-volb Cvolb$l_devchar] XOR .must_have) AND .must_have) NEQ 0) 
4 tevote Cvolb$l_devchar] AND .cannot_have) NEQ 0) 


! masks for device tests 
Sexch_signal_return (exch$_devnotsuit, 1, dev_desc); 


!' If the device is not mounted in the VMS sense, then we must do that 
and recursively call ourself 


if NOT .devbits Cdev$v_mnt) 
THEN 


The device must be mounted foreign 
if NOT .devbits (dev$v_for] 
THEN 


BEGIN 
= NOT exch$moun_vms_mount (volb, dev_desc) | 


RETURN false; 
ra init_foreign_open 0); 


! If the volume is write-locked 
$exch_signal_return (exch$_opnotperf11, 1, namb Cnamb$q_device]); 
! scope ‘‘devbits"”’ 


sen 
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NIT verb dispatch and misc routines 14. -Sep-19 AX-11 Bliss-32 V4.0-742 Page 
in tt _foreign_open 1a-8ep 1 198 99: 39; i EXCHNG. SRCJEXCINIT.B32;1 ° 
14 
i Now set the unique ident field of this volb 
9 édebug. print_fao ('volb devnam “"!AF'’, namb tt Ge **tAF’’, namb volid ‘"!AF'’, concealed !UL’, 
1 .vo ol6 volb$l_devnamlen], vo b olb t_devnam] 
1 (BIND ndev = famb [namb a. dev cel: $désc -block; -ndev Fdsc Su. Length]) 
6 (BIND ndev : namb namb$q-device) : Sdescob lock; ndgv dsc$a_pointerJ), 
1 “nem namb$\_vol_ident SUPT namb Cnamb$t_vo (_ide 
§ nenpsy, contealed_dev 
CHSMOVE etre vol_ident, namb- nanbs 4 Vv L_ident], volb vol b$t_ vol_ident]); 
: volb Cvolb$l_vol_idént_len] = .namb ([namb$i"vol_ ident_ Lend; 
ZIF switch _debu ' Dehugging tra d 
$ ZTHEN = ° ate: eis ype 
3 BEG! 
LOCAL 
0 tmp_desc Séeec block; 
1 $stat_str desc_ini t Ttmp_desc, .volb Cvolb$l_devnamlen], volb Cvolb$t_devnam)); 
2 § $debug_ print_fao ('GetdvT for name "!AS'' resolved to device “!AS'', dév_desc, tmp_ desc); 
4 — 
$ § : Init the RMS blocks for the volume 
8 $fab_ init ( 
639 FAB = fab ' Volum 
0 FAC = (B10, ‘fe PUT), i "Block 10. read and write 
1 FNA = volb Lvolb$t_vol_ident], ' Set name addr 
pose FNS = .volb tvolbst~ vol_ident_len], ' Set name size 
FOP = NFS ' Non-File Sorestured 
0644 NAM = nam); ' Name block 
0645 $rab_init ( 
gee$ RAB = rab, ' Volume RAB 
ROP = B10 ! Block 1/0 
0648 FAB = fab); i FAB addr 
49 Snam_init ( 
50 NAM = ' File name block 
2) RSA = eo evel bea, rsbuf), ' Result name addr 
6 § RSS = nam$c_maxr ' Result name size 
bee ESA = .volb” Cvolbsa.. esbuf], ! Expanded name addr 
eee ESS = nam$c_maxrss); ! Expanded name size 
2$ Open and connect to the volume 
38 ir NOT (status = Sopen (fab = fab)) 
RETURN exch$util_file_error (exch$_openforeign, .status, fab, .fab Cfab$l_stv]); 
§ volb Cvolb$w_channel] = .fab Cfab$l_stv); ' Save the channel number (NFS ==> user mode channel) 
5 


if ad (status = $Sconnect (rab = rab)) 

RETURN exch$util_file_error (exch$_openforeign, .status, fab, .rab Crab$l_stv]); 
Set the volume format 
volb Cvolb$b_vol_format] = .namb (namb$b_vol_format); 
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Ex NIT 

abel tity oreign_open 

3 4 volb vol bSv.vfnt explicit) = .namb 
5 1 f volb Lvolb$v_write] = (BIND devbits 
; : 7 RETURN. true; 

3 75 E 


E 
ND; 


= fab 


So 
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50 000000006 


; BG Bie 
f B Ree 
$ 10 A6 00 0014 
og Bas 
33 40 Ag 4 00 6 
2 002CO0F9 F B 0024 
soothes fe He S38 
52 OTOA00"7 } 06 B08 6 
51 3¢ F 3€ 00030 
50 9 00 44 98 
argues AF Es 
Stee Bs 
omngene Ae B8s 
000000006 gf 9¢ 06 Bee 
9 a E 4 
0808 : bee 
000000006 8F DD if 
000000006 98 ; 06 : 2 
10 2F 46 105400 ; Fi bb 1$: 
a 2633208 : 09 pa 
se astesteg 8 Bae 2 
52 2c $6 8 4 ~ 3$: 
1 B 
51 2c Ag : 
52 000000006 er g 88 ah: 


Bc 12:39:05 


Cnamb$y_vfmt_explici 
3 art tert : 


ae Bliss-32 V4.0-742 Page 18 
EXCHNG. SRCJEXCINIT.B32;1 (6) | 
t); | 
Sbblock; (NOT .devbits Cdev$v_swlJ)); ! Device can 
EXCH$_ACCESSFAIL 
EXCH$-DEVNOTSUIT 
EXCH$~OPNOTPERF 11 
SYSSOPEN, EXCH$_OPENFOREIGN 
INIT FOREIGN OPEN, Save R2,R3,R4,R5,R6,R7,- ; 0500 
RB8.RO,RIO,RIT : 
#16, EXCH$A_GBL, RO : 0540 
(ROS, RO > 0541 
(RO), RI 5 
4(ROS, R6 ; 0542 
16(R65, R7 + 054 
0(R6), R10 + 0544 
4(R6), RS + 0545 
4(R9). R + 0546 
#2885853, R2 : 0549 
Fee usUTTL BLOCK. CHECK : 
ExCHeUT I R2 + 0550 
#572, RI F 
RI, RO ; 
EXCHSUT _BLOCK_CHECK : 
#6887 579; R2 : 0551 
s R1 : 
Ro, fo BLOCK_CHECK ; 
#°M<RS RES ¥ : 0555 
#2, EXCHSUTIL_VOL_GETDVI ; 
erATOS. 4 
BncRS a1 T> ; 0558 
Pe iseSiGNAL ; 
STATUS, R 0559 
#4, 47(R6), 28 : 0573 
#2 F0106180, MUST_HAVE : 0576 
#34 156151. CANNOT_HAVE : 327 
420160515 , MUST_HA : 383 
#540156102, CANNOT_HAVE ; 058 
ST_ HAVE, 44(R6), : 0589 
Re. MUST_HAVE : 
44(R6), CANNOT_HAVE : 0591 
5$ 5 
#EXCHS_DEVNOTSUIT, TEMP ; 0593 
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EXCHSINIT NIT verb dispatch and misc routines 16-Sep- AX-11 Oi ise =32 V4.0-742 Page 19 E 
vite tty - it foreign, Seen 1 ~3087} 38 99: 33; i EXCHNG.SRC SEXCINIT.B32:1 . (6) | Vv 
17 2E Ab ; EO 000C4 5$: BBS n. 46(R6), 7$ : 0598 : 
DD 000C9 PUSHL R + 0601 : 
DD 000CB PUSHL R : : 
000000006 Ff fF CD CALLS #2, EXCHSMOUN, VMS_MOUNT : ; 
3 : D4 BLBS RO, 6$ : ; 
00F4 D7 BRW 1 : ; 
FF21 CF 00 Fe DA 6$ CALLS #0, INIT_FOREIGN_OPEN + 0604 : 
18 3 Ab Es ° £0 7$ BLBS 47(R6), 9$ + 0609 ; 
52 000000006 ef D £4 MOVL #EXCHS_OPNOTPERF11, TEMP + 0611 ; 
3 DD OOOEB 8S PUSHL R : ; 
Qi DD OOED PUSHL #1 : ; 
DD OOOEF PUSHL is : ; 
000000006 90 g FB OOF 1 CALLS #3, LIBS$SIGNAL : ; 
DO O00F8 MOVL TEMP, RO : ; 
04 OOFB RET ; ; 
69 Ab 008A C9 0080 8F 8 OOF 9$ MOVC3 #128, 138(R9), 105(R6) + 0623 F 
65 A6 0086 C9 p 010 MOVL 134. RO), 101(R6) + 0624 ; 
0050 8F 00 6€ 09 ec aie MOVES #0, (SPS, #0, #80, (R7) ; 0644 ; 
67 5003 SF BO 0011 MOVW #20683, (R7) : ; 
04 A? 00010000 a p0 O118 MOVL 6 5 : 4(R7) : ; 
16 A? 3 90 001 MOVE #35, 20(R7) : ; 
1F OA? 08 90 01 4 MOVB #2, 31(R7) : : 
8 A? DO 00128 MOVL  R8. 40(R7) ; ; 
a, 69 Ab 3 91 C MOVAB 105(R6), 44(R7) : ; 
4 ar 65 Ae 90 00131 101(R6). 52(R7) : ; 
0044 &8F 00 a 00 2c 01 6 mMOvVCS #0, (SPS, #0, #68, (R19) : 0648 ; 
6A 4401 8F 80 O13 OVW #17409, (R10) : ; 
04 AA 0800 ef C 0014 MOVZWL #20468 4(R10) : ; 
3c COA 7 p0 0149 OVL R7, 60(R10) : ; 
0060 8F 00 6E 00 C 00140 MOVCS #0. (SP), #0, #96, (RB) + 0654 : 
68 6002 = -&F 80 0155 MOVW #24578, (RB) : ; 
02 AB 01 . 015A MNEGB #1, 2(R8) ; ; 
04 =A 20 AB D O15 MOVL 32(k6), 4(R8) : ; 
OA A 01 3 016 MNEGB #1, 10(R8) : ; 
OC A 1¢ Ag DO 00167 MOVL  28(R6), 12(R8) : F 
57 DD 0016C PUSHL R7 : 0658 
000000006 90 Q1 F O16 CALLS #1, SYSSOPEN ; 
0 DO 0017 MOVL RO, STATUS ; 
38 E8 00178 LBS STATUS, 10$ ; 
oc A DD 178 PUSHL Tear ) : 0660 
17 17 RB 11$ : 
4A Ab 0c A? BO 00180 108: OVW 12(R7), 74(R6) + 0662 
5A DD 001 PUSHL R10 + 0664 
000000006 90 1 F 1 CALLS #1, SYSSCONNECT : 
0 dO 001 t VL — RO, ST ATUS ; 
B €8 001 BLBS STATUS 12$ F 
0c AA DD 00194 PUSHL ecri } > 0666 
37 DD 00197 11$:  PUSHL R ; 
B DD 00199 PUSHL STATU : 
000000006 af DD 198 PUSHL HEXCH OPENF ORE IGN ; 
000000006 _ EF 4 FB A CALLS , EXCHSUTIL_FILE_ERROR 
58 AG 7A AD 5 B18 12$ MOVE 122(R9), 88(R6) > 0670 
| 


7 
EXCHSINIT INIT verb dispatch and misc routines 18-Sep-19 4 90:38:01 AX-11 Bliss-32 V4.0-742 Page 20 E 
v04-000 init foreign_open 14-Sep-1984 29:05 EXCHNG. SRC EXCINIT. B32;1 (6) Vv 
50 0085 ¢9 1 3 EF Oot A EXTZV oe 2) 135(89) RO 3; 0671 
48 As 01 6 FO 001B INSV RO, He, i 2(R6) : 
5 43 A? 1 1 €F 188 EXTZV #1. #1. 6 tRps: RO + 0672 
9 § Dd 1c MCOML RO, 3 
0 1 3 1CA MOVL #1, RO 3 0674 
4 1CD RET : 
50 D4 tf CLR 3 
04 0010 RET é 
; Routine Size: 465 bytes, Routine Base: EXCHSINIT_CODE + 0 
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138: L RO ; 0675 
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EXCHSINIT NIT verb dispatch and misc routines 1e-Se “19 9: AX-11 Bliss-32 V4.0-742 Page 21 
v04 it Yate 14- sen 1944 99: 33 ‘Sf EXCHNG.SRCJEXCINIT.832;1 ° (3) 
3 A) 76 1 GLOBAL ROUTINE init_init : NOVALUE = ASBTTL ‘init_init’ 

; i 7 BEGIN 
3 67 'e¢ 

; 67 i | 
: + ? FUNCTIONAL DESCRIPTION: 

5 % 6 é Perform setups for EXCHSinit_initialize | 
: 594 684 2 | INPUTS: 

; 595 685 i 

: 38 6 $ none 

; 38 & 2 | IMPLICIT INPUTS: 

; 599 689 i 

; 600 690 i global environment 

; 601 91 i 

; 60 $36 i OUTPUTS: 

; 60 9 i 

3; 604 694 i none 

; 605 0695 i 

; 606 008 i IMPLICIT OUTPUTS: 

; 607 69 i 

; 608 0698 i none 

3; 609 699 i 

; 610 700 i ROUTINE VALUE: 

; «611 701 i 

; oi¢ 70 i none 

3; «66 070 i 

; 614 0704 i SIDE EFFECTS: 

3; 615 0705 i 

3 ois 3708 et memory might be allocated for the init control block 

F gi8 0708 

; 619 709 $dbgtrc_prefix (‘init_init> '); 

3; 620 0710 

; 621 0711 BIND 

3 : § org init = exch$a_gbl Cexcg$a_init_work] : $ref_bblock ! pointer to our work area 

> 626 0714 ; 

3; 625 0715 

3 : $ tae} If our pointer is null, we need to allocate and initialize the work area 

: 628 718 2 IF .init Ea. 0 

3; 629 719 THE 

3 ° , 4 y BEGIN 

; ° § g § Get the right sized chunk of memory, conveniently set to nulls 
: 634 , 4 init = exch$Sutil_vm_allocate_zeroed (exchblk$s_init); 

; e § Set the ident fields | 
; 638 u : $block_init (.init, init); | 
; on ? 0 ! Set the descriptors up | 
: 642 43) $dyn_str_desc_init (init Cinit$q_device)); | 
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; 643 733 Sdyn_str_desc_init (init Cinit$q_volumeid]); $ | 
I 644 784 ee * | i] 
3; 645 735 END; 31 
; 646 7 § 33 
3 +) f Make sure that our work area is valid | : 
3 $09 739 Sblock_check (2, .init, init, 570); 3B 
; 650 740 | 5 | 
3; 651 741 RETURN; 3 1 
3; 652 742 1 END; : 
zl 

: ‘ 

-EXTRN EXCH$GQ_DYN_STR_TEMPLATE | - 

001C 00000 -ENTRY INIT_INIT, Save R2,R3,R4 : 0676 = | 

54 000000006 EF 9E 9000 MOVA MPL? : =z 

53 000000006 EF 19 C7 0000 ADDL #16, EXCHSA_GBL, R3 + 0712 § 

DS 00011 TSTL (R35 : 0718 3 

2 12 Belg BNEQ is ; = | 

C DD 0001 PUSHL #4 + 0724 3 

000000006 EF 1 FB 00017 CALLS 1. EXCHSUTIL_ VM_ALLOCATE_ZEROED ; 31 

63 50 D0 0001 MOVL : ; | 

08 Ad 36 BO 00021 MOVW Roy 8(RO) : 0728 31 

OA Ag 7 BE 00025 MNEGB #7, 10(RO) : 3 

50 6 0¢ cl 00029 ADDL3 #12, (R3), RO + 0732 31 

60 64 7D 00020 MOVG. TMPL, (ROS : 3 1 

50 63 14 cl 00030 ADDL3 #20, (R3), RO : 0733 31 

60 64 7D 00034 MOV wet (ROS : 31 

52 OO2COOF9 BF bo 90037 1$: MOVL #2883833, R2 : 0739 31 

51 023A BF 3C 0036 MOVZ2WL #570, R1 : 3 

50 63 DO 0004 VL R3). RO : 5 

000000006 EF 16 00046 JSB EXCH$UTIL_BLOCK_CHECK : 31 

04 0004¢ RET > 0742 : 

; Routine Size: 77 bytes, Routine Base: EXCHSINIT_CODE + 0521 : 
3 1 

¢ | 

3: | 

z | 

= | 

: | 
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789 


742 
tialize 14-Sep-1 EXCHNG.SRCJEXCINIT.832;1 


oe ROUTINE exchSinit_initialize = &&SBTTL ‘exch$init_initialize’ 
! 


3 FUNCTIONAL DESCRIPTION: 

Action routine for the INIT verb, parses and performs main control functions for INIT 
INPUTS: 

none 

IMPLICIT INPUTS: 

Command parameters and qualifiers as returned from CLI$xxx routines. 
OUTPUTS: 

none 

IMPLICIT OUTPUTS: 

none 

ROUTINE VALUE: 

Success or worst error encountered. 

SIDE EFFECTS: 

® Data is 


$dbgtrc_prefix ("init_initialize> *); 


LOCAL 
message, 
namb $ref_bblock, ' Local pointer to a namb 
volb $ref_bblock, ! Local pointer to a volb 
status 

BIND 


init = exch$a_gbl Cexcg$a_init_work] : $Sref_bblock ! pointer to our work area 
: Allocate and/or initialize the work area 
init_init 0); 
Get the individual boolean qualifiers. 
init Cinit$v_q_create] = cli$present (ZASCID ‘CREATE'); 
Set the flag for printing init messages. 


rae 
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EXCHSINIT INIT verb dispatch and misc routines 16-5e Sep-1984 9: AX-11 Bliss-32 V4.0-742 P 4 EXC 
v04 ae ty exchS\nit. initialize 5 ~300 71382 90: 33 $8 EXCHNG. SRC EXCINET BSS _— Bb v04 


3 ap init Cinitsy 9 message] = sozctSe, b fexcasv. Q_message); ! Default to external cate 

3 \¢ 1 message = cts presen (ZASCID ‘MES NCES i Find the flag grate Te the 

Ba ¢ IF message ED L cli$_present i Either /MESSAGE or /MOMES SAGE must be spec | 
; 714 OR i “in order to override the external default 
s i$ 04 -message EQL cli$_negated 

: rig 5 THEN 

; 4 init CinitSv_q_message] = .message; 

: a § 8 '\ init Cinit$v_q_badblocks] = cliS$present (ZASCID ‘BADBLOCKS') 

; 720 0809 '\ init Cinit$v_q_badblocks_retain] = cli$present (ZASCID *BADBLOCKS Te ); 
3; Tei 0810 '\ init Cinit$v_q_replace = cli$present (ZASCID Ai 

3 4 § O81 ‘\ init Cinit$v-q_ “replace. retain) = cli$present (HASEID "R PLACE. rétaIN® ); 
Ps 
3 726 818 ! Get individual integer-valued qualifiers, routine signals on errors. If the qualifier is not present, 0 i 
3 feo 0814 i in the second parameter and -1 (success) is returned as the routine value. Here we also treat positionals 

: f § Sate second parameter as globals. *| 
; 4 8 it if NOT (status = exch$Scmd_cli_get_integer (%ASCID ‘ALLOCATION’, init Cinit$l_q_allocation])) | 
; ff 0819 RETURN .status; | 
: 4 § 4 1 Mog (status = exch$cmd_cli_get_integer (ZASCID "EXTRA_WORDS', init Cinit$l_q_extra_words])) 

: 2 0898 RETURN .status; | 
; 735 1824 IF init Cinit$l 4. ‘extra words] GTRU 119 

we 0825 THEN | 
BS 08 § BEGIN 

; 738 08 $exch riigrel (exch$_rtll_extra); | 
; 139 08 8 init Ci t$l_q_ext;S_words) = 119; | 
: 741 0830 

: Ss 4 1 co (status = exch$cmd_cli_get_integer (ZASCID ‘SEGMENTS’, init Cinit$l_q_segments])) 
> 744 08 : RETURN .status; 

3; «745 8 IF .init Cinit$l a * segnents) GTRU 31 

: 746 0835 THEN 
3; 747 08 BEGIN 

; 748 08 $exch signal (exch$_rtll_toomanyseg, 1, 31); 

; ys 0839 a Tinit$l_q_segments) = 31; 

: 751 840 

: P36 pe) Get the volume Labei 
; a3] ages if NOT (status = cli$get_value (ZASCID ‘VOLUMELABEL', init Cinit$q_volumeid])) | 
; P38 eee? Sexch_signal_return (.status); 

; 3 he : Parse the device name parameter into a newly allocated SNAMB, there are no defaults 

: 760 § | tae - ype Sg ape HH tilespec (ZASCID "DEVICENAME', 0, 0, init Cinit$q_device], namb); 

; 761 50 init$Sa_namb -namb; ' Save it in the work area too 

5 6 51 ay -stetus 

; ree § 3! a -Signal_return (exch$_parseerr, 1, init Cinit$q_device], .status); 

: 7 35 ' If @ physical init, check the name 

3; 6 ; 
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EXCHSINIT INIT verb dispatch end misc routines 1b-se Sep-1 1 AX-11 Blisg-32 V4.0-742 i 5 
Seco enchSinit. intttel ze 735p-1982 99:33:83 UeXchnc SaeSexcinitoaso.1 age 8} 
Ff T (ini inits ) 
if, bi mit Cinit$v_q create) 


sez 


: tf sot -namd (namb$v_explicit device) 

5 i “bexch reign return (exch$_nodevice, 1, init Cinit$q_device)); 

; re has v_explicit_node] 

: ore 5 “sexchs Signal. return Coucnt noremote, 1, init Cinit$q adevice)) 

; 7 ambSv_explicit_di Fos tory 6R inamb Cnamb$v explicit nese) 

; ore ? a a namb$v_explicit_type] OR .namb Cnamb$v_explicit_verstonJ 

3 rey ; ne at Signal (exch$_devonly, 1, init Cinit$q_device]); 

: 78 0871 : 

3 788 Bag | If the device is not mounted, attempt to temporarily open a file and perform the operation 
; 785 0874 volb = .namb Cpeabse., assoc_volb]; ! If it is mounted, we will have a pointer to a volb 
; 786 0875 IF (,.volb EQL 0 

: 787 +t THEN 

: 788 87 BEGIN 

; 789 0878 

3 a) ie ; Allocate a $VOLB to describe the volume 

; re 0881 volb = exch$util olb_ allocate (); 

; 79 088 init Cinit$a_volB Tvolb; 

3; 794 088 

; 795 0884 ! Temporarily open a channel to the device 

; 796 0885 ' 

; 797 0886 IF .init Cinit$v_q_create] 

; 798 0887 THEN 

; 799 0888 status = init_foreign_create () 

: 800 0889 ELS 

; 801 0890 status = init_foreign_open (); 

; 80 0891 

: 80 089 ! Now do the actual initialize 

: 804 089 ' 

; 805 0894 IF .status 

3 B08 0895 THEN 

; 80 0896 4 BEGIN 

; 808 0897 4 

; tt +443 ? The open worked, let's see if we can do the volume-specific part of it 

3 i} H+ 2 case -volb Cvolb$b_vol_format] FROM volbSk_vfmt_lobound TO volb$k_vfmt_hibound OF 
; if 308 Cvolb$k_vfmt_dos11] : BEGIN 

; 814 status = init_dos!1_init () 

; 815 0904 CHSMOVE (6 UPLIT BYTE. ("D0 é-1 , volb Cvolb$t_vol_typed); 
3 18 905 volb Cvolb$t _vol_type_len] = 

; «81 M4 4 END; 

: 818 ? CvolbSk_vfmt_rti1) : BEGIN 

: 19 908 = P ae rtil_init ( 

; 620 909 CHSROV E ¢ OPLIT BYTE (° ai -11"), volb Cvolb$t_vol_type]); 
> B21 910 ; volb Etest “vol_type_len] = 5; 

: : 316 4 !\ prot pee vfmt_rtat) : exch -Signal stop (exch$ -"gy inp plement); 

: 4 913 4 OUTRANGE , INRANGE) : $logic_check' (0, (false)? 226); 


get 
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oid 
-Sep-1984 9:05 EXCHNG.SRCJEXCINIT.B32; 


* 1 
TES; 
} Close the volb's file now 


init_foreign_close (); 
END; 


e 

n 

4 

4 

4 

4 

4 
Release the volb, since we don't plan to mount it 
exch$util_volb_release (.volb); 
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i END 

4 : } OK, the device has already been mounted 

840 ELSE 

et BEGIN 

ac$ The open worked, let's see if we can do the volume-specific part of it 
845 init Cinie$a_volb) = .volb; 

338 case -volb Cvolb$b_vol_format] FROM volbSk_vfmt_lobound TO volb$Sk_vfmt_hibound OF 
848 vol b$k_vfmt_.dos11] : status = init_dosll_init (); 

849 volb$k_vfmt_rtl1] : status = initlrtll_init (); 

850 '\ volb$k_vfmt rtmt] : gexch signal stop Texch$_not implement); 
851 940 OUTRANGE , INRANGE J : Slogic_check (0, (false)? 307); 

526 094 ; 
85 094 
S28 094 END; 

55 0944 : 
$28 0945 ' Tell them it has been done 

57 0946 : 
858 0947 IF .status 
859 0948 
860 0949 -init Cinit$v_q_message] 
861 0950 4 


$exch_signal (exch$_initialized, 4, .volb Cvolb$l_vol_type_len], volb Cvolb$t_vol_typel, 
-volb Evolb$livolzident_lend, volb Cvolb$t_vol_ident)); 


Release the namb we used for the input 
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exch$util_namb_release (.namb); 
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RETURN .status; 
END; 


-PSECT EXCHSINIT_PLIT,NOWRT,2 


0018 .BLKB 1 
00 00 45 54 41 45 132 43 O01¢ B-AAE: “ASCII \CREATE\<0><O> 
0060000" 8 © [ADDRESS P.AAE 
00 45 47 41 53 53 4 4D C P.AAG: “ASCII \ME SSAGE\<O> 
010€000 P.AAF: .LONG 176947 


EXCHSINIT 
v0s~-000 


00 


00 


00 


69 
50 000000006 
69 


69 


INIT verb nie patc 
exch$init_initialize 
00 4E GF 49 54 41 
53 44 52 4F 57 SF 
53 54 4E 
4C 45 42 41 4C 45 
00 45 4D 41 GE 45 
31 
52 000000006 
96 
000000006 
01 
FF 
01 
000000006 
000000006 
000060006 
01 
000000006 


43 
7 


45 
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F 8 
6-Sep-1984 9: AX-11 Bliss-32 V4.0-742 
4-Sep- 382 99: 33 a EXCHNG. SRCJEXCINIT.B32;1 
.ADDRESS P 
P.AAIL: “ASCII Hiab cone 
P-AAH: .LONG 
-ADDRESS 
P.AAK: ASCII NETRA WORDS\<0> 
P.AAJ: .LONG 17694731 
-ADDRESS P.AAK 
P.AAM: ASCII \SEGMENTS\ 
P.AAL: .LONG 176 Nh 28 
-ADDRESS P.AAM 
P.AAO: -ASCII \YOLUMEL ABEL \<0> 
P.AAN: .LONG 176 
“ADDRESS P.AAO 
P.AAQ: .ASCII NDEVI CENAME \<O><0> 
P.AAP: <.LONG 17694 
“ADDRESS P.AAQ 
P.AAR: .ASCII \DOS=-11\ 
P.AAS: .ASCII \RT-11\ 
EXTRN CLI$_PRESENT, 7fkis _NEGATED 
EXTRN EXCHS_RT11_EXT 
EXTRN EXCHS$~RT11 OOM YSEG 
EXTRN CLISGET VACUE EXCHS PARSEERR 
EXTRN EXCHS$_NODEVIC EE, EXCHS_NOREMOTE 
EXTRN EXCHS_DEVONLY, EXCH$_BADLOGIC 
EXTRN EXCHS~INITIA! fZED 
PSECT EXCHSINIT_CODE,NOWRT,2 
ENTRY Cr RRIAD ROR Te Save R2,R3.R4,R5,R6.- ; 
MOVAB at 
MOVAB C{BssicnaL, R10 
SUBL2 #4 
ADDL3 #16, EXCHSA GBL, R2 
CALLS #0, IN one: 
MOVL (Rd) 
MOVAB barr)” 
PUSHL Rit 
CALLS I ames 
INSV (R 
EXTZV *2 aie aEXCHSA GBL, RO 
INSV wi, (ROY 
PUSHAB 
CALLS ; ACLISP PRESENT 
CPL MESSAGE. #CLIS_PRESENT 
CPL MESSAGE, #CLIS_NEGATED 
1$: INSV ESSAGE, wi, #1, (Rd) 
2$: PUSHAB 
PUSHAB P.AAH 
CALLS e, EXCHSCMD_CLI_GET_INTEGER 
MOVL STATUS 
LBC srATus. 4$ 
PUSHAB 32(R2) 
PUSHAB P.AAJ 
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EXCHSINIT INIT b di tch dal ' 
VO4~ exchSinit. initialize. ae woeeeeee 
: i 
F 20 a2 
000000006 ; 
6A , 
A2 77 F 
24 OA 
48 OA 
ff ; 
i ; 
0191 
1F 24 Ae 
1 
1F 
4 
00000000G 8F 
6A 03 
A2 1F 
14 Ae 
00 5¢ AB 
58 0¢ 
OA 58 
53 28 
5 
6A 0 
ge 
54 0c a5 
54 
70 H 
ef 03 
35 Q 
62 oF 
1 58 
53 000000006 ; 
0110 F 
1 
3 
6A 04 
50 3 
46 69 
53 6c OA? 
3 
55 00000000G 8F 
14 $3 2 
000000006 : 
1 
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3$: 


4$: 
5$: 


6$: 


7$: 


8$: 
9$: 


10$: 
118: 


1986 3:30:05 — FeXcunceSaesexcinttoasses 


2, EXCHSCMD_CLI_GET_INTEGER 
RO, STATU 
Tatu, 4 
(R2), #119 
HEXCHS RT11_EXTRA 
#i, LIBS 
#119. 32¢R2) 
36(Rd) 


P.AAL 
ne, EXCHSCMD_CLI_GET_INTEGER 
STATUS 


TATUS, 5$ 
Hf 


T11_TOOMANYSEG 
L{8SS 1GRAL 
{ R2) 
P.AAN 
#2, CLISGET_VALUE 
RO, STATUS 
STATUS, 7$ 
STATUS, TEMP 


#1, LIBSSIGNAL 

8$ 

SP 

12(R2), R4 

R4 

(SP) 

P. AAP 

#5, EXCHSCMD_PARSE_FILESPEC 
RO, STATUS 


NAMB, R7 
R7, (R2) 

STATUS, 9$ 
WEXCHS_PARSEERR, TEMP 
aaeaeaead 

TEMP 

a4, LIBSSIGNAL 

9) 
g(R7), R3 

3) 

XCHS_NODEVICE, TEMP 


(R3), 128 
CH$_NOREMOTE, TEMP 
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EXCHSINIT INIT yerb tch and misc routines 16- sep 9: AX-11 Bliss-32 V4.0-742 Page 29 EXx( 
aoe exch) nit Gntetitize 14-Sep 71383 99: 33 ‘8 EXCHNG.SRCJEXCINIT.832;1 . AY vOé 
DD 90142 PUSHL TEMP : | 
$ FB 14 CALLS #3, LIBSSIGNAL : ¥ 
0 p 147 MOVL TEMP, R : : 
4 OO14A RET : | 3 | 
0 01 a3 E8 00148 12% BLBS 1(R3), 138 + 0866 ae 
8 é EO 0014 BBS #9, (R3) 138 : : | 
4 4 A €0 001 BBS #0, (RSS, 13$ + 0867. i 
D t B £1 001 BBC #11. (R3), 148 : | 3 
4 0D 00158 13$:  -PUSHL R4 + 0869. i] 
1 DD 0015p PUSHL #1 : | : | 
000000006 8F DD 0015F PUSHL s XCHS DEVONL Y : : | 
A ; F 193 CALLS L18SS IGNAL ; : | 
ft 74 A? 00 00168 148 MOVL Ti8ch , VOLB + 0874 | 
7B 12 0016C BNEQ 3 > 0875 : | 
000000006 Ef 2 F 166 CALLS #0, EXCHSUTIL_VOLB_ALLOCATE + 0881 2 | 
Dd 1 MOVL 0, VOLB : . 4 
04 56 DO 00178 MOVL vole, 4(R2) > 0882 : | 
0 £9 0017C¢ BLBC R9) + 0886 2 | 
FASE CF g FB 0017F CALLS #0, INIT_FOREIGN_CREATE ; 0888 2 | 
11 00184 BRB 19s ; 7 
FCS? CF 0 F 0186 15$: CALLS #0, INIT_FOREIGN_OPEN + 0890 : 
8 4 DO 00188 16$: MOVL RO, STA 195 ; : 
4D E 018E LBC = STATU ; 0894 : 
03 00 58 a6 BF 00191 CASEB  BBCVO 8). #0, #3 ; 0900 : 
0031 0008 001D 0008 00196 178: <WORD 18$-17$,- F | ; 
19$-17$.- : ; 
18$-17$.- : : 
20$-17$ ; : 
7E E2 8F 9A 00196 18$:  MOVZBL #226, =(SP) > 0913) : 
1 DD OO1A PUSHL #1 : : 
000000006 BF DD 001A4 PUSHL rar tet BADLOGIC : : 
000000006 00 3 FB OOIAA CALLS : : 
6 11 1B1 BRB 3 : 
FBDA CF : FB 001B3 19$: CALLS i$ INIT_DOS11_INIT + 0903 ; 
8 00 0188 MOVL. RO, ; : 
SD Ab 78 «AB 06 0188 MOVC3 #6. P.AAR, 93(VOLB) > 0904 
59 6 06 00 001C1 MOVL #6, 89(VOLB) > 0905 
12 11 Qi1¢s BRB 21 : 090 
0000v CF Q FB OOIC7 208: CALLS #0, INIT_RT11_INIT : 090 
58 p gice MOVL. RO. S : 
5D 6 43 AB 0 1CF MOVC3 #5. P.AAS, 93(VOLB) > 0909 
59 Ab 5 0105 MOVL #5. 8 : 0910 
F9B7 CCF 0 FB 00109 218: CALLS #0. INIT_FOREIGN_CLOSE : 091 
6 DD OO1DE 22$:  PUSHL iv + 092 
000000006 _ EF 1 FB OO1E CALLS é EXCHSUTIL_VOLB_RELEASE : 
6 11 OO1E BRB : 0875 
04 =A é 20 O1E9 23$:  MOVL 298 4(R2) > 0934 
03 0 58 Ab F QiED CASEB (V 1B). # , 8 > 0935 
0025 0008 O01E 000 1F2 24$ WORD $- 4° ; 
erst 
$-24$ 
7E 0133 25$: MOVZWL 4307, (SP) 0940 


000000006 
000000006 00 


Ws 
—"9OW 
~woon 
ooooo 
rRoron—— 
ooo7m™ 
ww > 

vv 

cc 

an 

== 

-- 
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XCHS BADLOGIC 
rere 
29$ 


sea 


SesLarere,Chtetsttsne stee rovt tom 


F87D—sCCF o 10 2 
1 1 
0000v CF F 1 
8 1¢ 
1f 
17 6 
6 A F 
A go 
D oA F C 
9 Ad OD F 
4 0D 2 
00000000G 8F ODD 
6A FB A 
00000000G_ EF 1 PB 4 , 
4 3 00 0 8 3 
4 0024 
; Routine Size: 586 bytes, Routine Base: EXCHSINIT_CODE + 056E 


et Sep-19R4 09:58:01 YAN tt OU gc B2 we 02742, 


6$: 


CALLS #0, INIT_DOS11_INIT 
CALLS + INIT RT11_INIT 
MOVL 

BLBC Mint $ 

BBC (RO) 0$ 
PUSHAB 4 $y 

PUSHL 1 3<vouB} 

PUSHAB ga(v (VOLB) 

PUSHL (VOLB) 

PUSHL #4 

PUSHL oa fede At izeo 
CALLS 

PUSHL 

CALLS #1, EXCHSUTIL_NAMB_RELEASE 
MOVL STATUS, RO 
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EXCHSINIT NIT verb dispatch and misc routines 1b-se Sep-1 9: AX-11 Bliss-32 V4.0-742 Page 31. 

FOee000 initartit inte ~307} 382 99: 33 a EXCHNG. SRC EXCINI 05534 1 ° (3) 
7 GLOBAL ROUTINE init rtll_init = 2SBTTL ‘init _rtll_init’ 

a 

i 


s | 
3 96 
r ¥¢) FUNCTIONAL DESCRIPTION: 

: i Perform RT11 volume specific init actions 

; 369 i 4 | 
3 B08 INPUTS: | 
3 970 i none 

3 971 i 

3 af6 i IMPLICIT INPUTS: 

3 97 i 

; 974 i work area for INIT 

3 975 i 

3 376 i OUTPUTS: 

; 97 i 

3 144 i none 

; 97 ! 

; 980 i IMPLICIT OUTPUTS: 
3 Ht 
o8¢ none 

s 984 i ROUTINE VALUE: 

3 0985 i 

3 4] Success or worst error encountered. 

3 43 SIDE EFFECTS: 

3 44! mm RT11 directory will be initialized 

: 904 839 

; 905 16 $Sdbgtrc_prefix (‘init _rtll_init> "); 

; 309 995 LOCAL 

; 908 ent : $r ' the first entry in the bloc 

; 909 0997 hdr : $ref_bblock, ! pointer to the rti1 Masters block 

; 910 998 hom : $ref_bblock, ! pointer to the rti1 home block 

3; (911 rtv : $re ck, ' rtl1 volume extension 

3 aig 1000 bnum, ' number of blocks on device 

; 91 1001 snum, ' number of pognents ia in directory 

; 914 1 § start ' start block 

: 915 1 03 hdrbuf : $bvector ([rt11$k_dirseglen], i actual buffer 

3 aig 1 status 
; 91 1005 : 
; 918 1006 | 
; 919 1 BIND 
; 920 1008 init = quchse gbl wt + attested $ref_bblock, ! pointer to our work are 
: 3s} 1302 volb = init Cinit$a_vo : $ref=bblock i pointer to exchange vOLB structure | 


Ss a 


kK 8 
Ex NIT NIT verb dispatch and misc routines 16-Sep-1984 00:59: AX-11 Bliss-32 V4.0-742 Page 32) 
bec 000 initartit inte 13788b-198e 93:35:83 — EENcnc’sresexcimti aso 9485, 
: 4 101 ' Boot program. The following PDP-11 program will type out the attached message when the volume is booted on 
3 : 5 ! F } PDP=14, Yntorming the user that this 2 not a system disk. (Thanks to CENT T sRCSININDX B39) | 
3; 9 5 1014 BIND 
3 4 8 ! 1 boot_program = UPLIT WORD ( 
; 950 1 9 70°00 + ! BOOTBK: NOP ; NOP IDENTIFIES B00 
; 931 1 18 20°01 *, %0°001000', ! MOV #1000,SP ; SET TEMP STACK 
; 836 101 %0°010700', ! MOV PC,R ; SET ADDRESS 
3; 9 1020 z0' ° 700°, %0'000036', ' ADD #BOTMSG. .RO 3; OF MESSAGE 
; 9 1021 z0' 001', f 108: MOVB (RO)+,R1 ; GET NEXT CHARACTER 
; 935 1 ¢ %0°0014 3 ' BEQ ; END 
3; 9 1 z0' ars *, %0°000006', : CALL TYPIT 3; NO, PRINT IT 
3; 9 1024 x0' o? a : BR 10$ ; LOOP FOR NEXT CHAR 
3; 9 1025 %0°000005', ! 20$: RESET 3 
; 939 10 $ %0'000000', : HALT 3 HALT 
; 940 10 ! 
: 941 1028 ' 
; oe6 1029 eh ae %0'177566', ' TYPIT: MOVB R1,a4TPB ; PRINT CHARACTER 
: 94 1030 ¥0'105737", %0°177564"', i 10$: TSTB a#tPs > DONE? 
3; 944 1031 %0'100375', : BPL 10$ 3; NO, WAIT 
> 945 1936 %0'000207' ' RETURN 3 
: 946 103 : 
: 947 1034 ! 
; 948 1035 ! BOTMSG: 
; 949 10 $ F 
; 950 10 
; Be) Ose } Boot message, we will add the volume id a Little Later 
3 38 1040 boot_message = UPLIT vad | ( 
@ 954 1041 7 1 e 10, e 7 
3; «955 H ok "The volume Labeled " "is not a system volume.', 
; 956 104 To Sts. te We ta S 
s 97 Hees ); 
; 958 1045 
; 959 H LITERAL 
; 104 boot_prog_len = 38, ' boot program is 38 bytes long 
3 1048 § boot_mesg_len = 68, ! message is 68 bytes ong 
3 1049 boot _volname = boot_prog_len+25; ! volume label offset in boot block message 


eniniieansianiian amused 4 
8 

EXCHSINIT NIT verb dispatch and misc routines 1b-se 1984 00:59: AX-11 Bliss-32 V4.0-742 Page 33 

Fbec000 initareit inte ° 1o7$0p- 1882 99:33:88 HEXcune Sacdexcinti esos at) 

; 9646 1 Splock check (2, .init, init, 574 
block check (2, .volb, volb, 576 
Make sure that we can do it | 

if NOT .volb Cvolb$v_write) 

THEN 


Sexch_signal_return (Swarning_stat copy (exch$_writelock), 2 
-volb ECvolb$l_vol_Tdent_lenJ, volb Cvolb$t_vol_ident)); 


Get a zeroed buffer for the block and a pointer to the first entry 
hdr = hdrbuf; 

hom = perput + 512; 

CHSFILL (0, rtl1$k_dirseglen, hdrbuf); 

ent = .hdr + rtiihdr$k_length; 

Determine the number of device blocks 


bnum = (BEGIN 
LOCAL 


965 


Sees 


No 
oO 


ouvir 


ao 


Wr O COnNOoufwnr— 


> tt tet Oe PN 


“ 


bmax; 
bmax = MINU (65535. .volb Cvolb$l_devmaxblock]); 
if vole Cvolb$v_virtual] 


SPOR wwee so VISVII IS 


Co 
~ 


BEGIN 

IF .init Cinit$l_q_allocation] NEQ 0 
NOT .init Cinit$v_q_create) 

HEN 


Sexch_signal (exch$_virtnochange) ; 
. bmax :; 
END 
4 IF init Cinit$l_q_allocation] NEQ 0 


NOUS WN 9 OONOUE WN 0 OONOUE AR OOONOuUs 


BEGIN 
PS i Cinit$l_q_allocation] GTRU .bmax 


$88 


BEGIN 
$Sexch_signal (exch$_rtll_toomanyblk, 1, .bmax); 
ax 


ELSE 
einit Cinit$l_q_allocation) 


uw 
COOCOCCOCOOCOOOCOOOOCOCOOCOOOOooOoOS 


DOO OODDODOWODOOOON NN NNN NNO 


MEW OOM 


oO 


ELSE 
bmax 


END): 
bnum = MAXU (40, .bnum); 


: 
; 
| 
; 


et a a et ts 
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ee ek a es ns ss ss a 8 nt at ts tn ss a as 2 4 a et ss 
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e 
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IK prt tagete ent mtec eosetos ASIN AES HRESMMUNCHE ASHE, Pel 


; ! 12 19 H Determine the number of directory segments 

:1 1 11 Snum = (SELECTONE true OF 

wm > 

; } ; i ¢ } If a /SEGMENTS was given, use that value 

; \ 1 C.init Cinit$l_q_segments) NEQ 0) : init Cinit$l_q_segments); 
; 18 1} } If no /SEGMENTS, use a default based on device size (ala RT-11 DUP) 
; 19 5 1110 .bnum LEQU 12 : 1; 

3 1 $ 1113 .-bnum LEQU y j : 4; 

3; 10 1316 .bnum LEQ 288) : 16; 

3; 10 : 111 OTHERWISE) : 31; 

3; 10 1114 

3; 10 1115 TES); 

: 1031 1338 

3 + ¢ 13) Determine the start block for files 

; 1034 1119 least = rtl1$k_root_block + (2 * .snum); 

: 1035 1120 IF .start+32 GTRU .Bnum ! If room for fewer than 32 blocks for files 
2 1D38 1121 THEN 

3; 103 11 ; oo 

; 1038 11 = 1; ! Reduce te one segment 

; 1039 1124 stort. = rtl1$k_ root_block + 2; ! Start at a given block 

5 Hr 1 ? poxch. signal (@xch$_rt11_toomanyseg, 1, 1); ! And tell the world 


nN 8 | 
SBeRST EBL pr, feeeeh nd etee rovetas IESE ISR NEUES) YM GMGPHNERE MSGR, me Ht 


4 wor (status = exch$io_rtll_write (.volb, .p, 2, .hdr)) 
RETURN .status; 


! Since Files-11 writes a large number of home blocks on a device, make sure that we zero most of them so th 
don't see strange things happening during a foreign mount. 


ae 


if uot (status = init_zero_home_blocks (.start, .hdr)) ! Pass # of first unzeroed block and zeroed | 
RETURN .status; 
' Now set up the header of the first segment 


Wi OOo NO 


DNA WNE wr — 


hdr (rtithdr$w_num_segs] = .snum; 
hdr (rtlihdr$w_next_seg] = 0; 

hdr rel ihdrouhigh.seg) =_1; 
hdr (rtlihdr$w_ex ro_pytes 
hdr (rtlihdr$w_start_b 


! Only one segment in the directory 


2 * .init Cinit$l_q_extra_words); 
~Start; 


ock 


; } i 1188 ; | Set up the boot and home blocks | : 
; 1045 L 11 § Slogic check (0, (rtllhom$s puner _nane EQL excg$s_username), 310); | : 
; SPRINT: as ymp ion 510 verified during compTlation ‘ 
; 104 11 CHSMOVE (rtilhom$s_owner_name, exch$a gpl Cexcg$t_username], hom pre] ihemdt owner ngngy?: ‘ 
3 104 1131 CHSMOVE (rtilhom$s_system_id, UPLIT BYTE (*DECVMSEXCHNG'), pom rtllhom$t_system_idJ) ‘ 
; 1048 11 ¢ CHSMOVE (boot_prog_len + Boot_mesg_len, boot_program, hdrbuf [0)); | ‘ 
; 1308 1} t (BEGIN : 
; 1051 1135 desc = init Cinit$q_volumeid] : $desc_block; | ; 
; 1936 11 $ CHSCOPY (.desc Fdsc$u_tength), -desc dsc$a_pointer), zC ' *, rtilhom$s_volume_id, hom (rt1lhom$t_volume_id | ‘ 
3 er 1} es (.desc [dsc$wilength], .desc [dsc$a_pointer], %C ' ', rtiihom$s_volume_id, hdrbuf Cboot_volnameJ)J; | : 
; 1055 1139 2 hom rt} Thon$u_system_yers] = ¥RADSO_11 'v40'; : 
3 1928 11 hom irtilhom$w cluster = 1; ‘ 
3 tt 4 1 hom [rtilhom$w_first_seg] = rt11$k_root_block; ‘ 
3 1322 1% Write the boot and home blocks. ; 
3 1303 i IF NOT (status = exch$io_rtil_write (.volb, 0, 2, .hdr)) : 
: 1968 B RETURN .status; : 
; 199? if ; If the volume format extension exists, overwrite the cached home block : 
; 1067 11 rtv = .volb fvolbSa_vimt_specific; ‘ 
; 1068 11 IF .rtv NEQ ‘ 
; 1069 11 THEN ; 
; 1070 11 BEGIN : 
; 1071 11 $block check (2, .rtv, rtl1, 629); ! If not an rtv we are hopelessly co : 
3 1 Le 11 CHSMOVE (512, .hom, rtv Crti1$t_block_1}); ! Copy the home block to cache : 
3 t if 1 END; : 
; { fe 1 We wiil zero the disk to the end of the directory area. : 
; 1077 11 CHSFILL (0, ctlisk dirseglon. hdrbuf); ! Set it back to zeroes : 
; 1078 11 INCR p FROM 2 TO .Start-1 BY 2 ° 
3 1079 11 : 
; 1080 11 : 
: 1081 11 : 
3; 1 a 11 : 
: 108 11 : 
3 1 11 : 
; 1 11 : 
: 1 11 : 
3; 11 : 
3 11 : 
3 1 11 ‘ 
31 11 ‘ 
3 1 11 ‘ 
3 1 11 : 
s 1 11 ‘ 
3 1 11 : 
3 7 11 ‘ 
a f 11 ‘ 
3 1 11 . 
a 11 


POPIPEPOPEPOPPIPUPSNO LAPIN NINUNI PPYNININIPIDI AIAN PUPP AAPIPONNIPININU EE BE 
—J — 
m wo 
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Sete Ge Se ee Fe Ge ee Ge FH Se Se Se ee Se Ge Se Ge Se Ge Se Se Ge SH Gs Ge 
tt a kd 8d ed = dd 4 
tt ot 8 Uc 2s SF = = 1 os SS 2 2 2 2 
NOPORPURD Ss 

FwWN "OVO OjOUSWN Oo 


0006 09F7 
0087 
65 62 61 


20 20 20 
60 75 6C 


init reit. 
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0303 9401 
BOFD FF74 


6C 
20 


6F 


47 


20 
20 


76 


&e 


65 


* 


20 


48 


1 END; 
.PSECT EXCHSINIT_PLIT,NOWRT,2 
000A7 1 
OO1E 65C0 11€0 0200 15€6 OOAO OOOAB P.AAT: WORD 160, 5574, 512, 4546, gins 30, - 
DF FF76 905F 0000 0005 O1FB 000BC 44h g551; 8, 3075, 5 28577. - 
07 OA OA OD O07 OOOCE P.AAU: .BYTE 7 13°'10, 16, 7 
6D 75 6C 6F $ 0 65 68 54 000D “ASCII \fhe volume Labeled ** 
20 20 20 ‘ 22 20 64 65 6C 000E 
6F GE 30 69 9 32 20 30 OOF 1 
6D 6 4 7 9 gt eo ta «ASCII \ a system volume.\ 
90 07 OA 0A OD 07 9010¢ .BYTE 7, 13, 10, 0 
43 58 45 40 56 43 45 44 00112 P.AAV: ASCII {BECUASERCHNES ” 
BOOT_PROGRAM= P.AAT 
BOOT =MESSAGE= P. AAU 
-EXTRN EXCH$_VIRTNOCHANGE 
.PSECT EXCHSINIT_CODE,NOWRT,2 
OFFC 00000 ENTRY waa Save R2,R3,R4,R5,R6,R7,R8,- 
5E FBEC ce 9E 0000 MOVAB afi 
50 000000006 _ EF 10 C1 900 ADDL EXCHEA. BL. RO 
A 0 DO F MOVL 
é i 20 0 if MOVL BO att” R2 
F 3C 0001 MOVZWL 


Bs escape bees,” snp, ise Sep-1986 12:29:05 LENcHNG. SRESEXCINTT 85321 


Make the empty entry followed by end of segment marker 


ent (rtllent$b_ iit byte] “5 oe _typ_empty; 
ent Lrtllent$l_ filename) = r mit ! Name is simple ‘EMPTY.FIL"’ 
ent (rtilent$w_filetypej = r5 
exch$rtl1_format_current_date tient 
ent (rtllént$w_blocks] =.bnum - nH Crtlihdr$w_start_block]; 
ent = .ent + f Ventsk atength © + hdr pel ingr sw. éxtra_BbytesJ; 
Slogic check, , (.ent L$s + 51 
ent (r€llent$b_type_byte) = tTienche typ. end_segment; 


If the volume format extension exists, overwrite the cached directory 
if .rtv NEQ 0 
THEN 


BEGIN 
CHSMOVE (512, .hdr, rtv Crtli$t_dire_segments]); if Is opy the new directory to cache 
a 


slogic. check (2, (exch$rtacp_verify_directory (.volb)), 249); 


} Write out the new root directory, only the first block necessary 
Status = exchSio_rtll_write (.volb, rt11$k_root_block, 1, .hdr); 
RETURN .status; 


e sure the directory is still o 


0960 


1908 
1009 
1050 
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EXCHSINIT NIT verb dispatch and misc routines 1h-se -1984 59:01 AX-11 Bliss-32 V4.0-742 Pa 7) E 
Fen 000 initareit ante 12-8 08- 1 3be 90:39:08 YEXCHNG SRe EXCINIT.832;1 itt if V 
50 5A 00 0001 MOVL R10, RO : : 
000000006 eF 1 i J$B EXCHSUTIL_BLOCK_ CHECK : | ; 
4 AA D MOVL  4(R10), (SP) : 1051) ; 
04 1800F 5 ef p MOVL #686 8579, R2 : | : 
4 F 4 MOVZWL #576, R1 ; 3 
0 6— D OVL (SP). RO : ; 
990000006 £ 16 A JSB EXCHSUTIL BLOCK CHECK : : 
50 6 004 FC 49 ADDL3 #72, (SP) RO : 1055 : 
1 5 £0 0004 BBS #5, (RO), 1$ : ; 
000000006 8F BO O4¢ MOVL HEXCHS WRITELOCK, STATUS2 + 1058 ; 
5 5 BS bone AC me Pe | : : 
50 6E 00000069 BF Ci iets ADDL3 #105, (§P), RO : ; 
0 DD 00061 PUSHL RO : : 
53 04 AE 00000065 8F C1 00063 ADDL #101, 4(SP), R3 : ; 
3 pd 0006C PUSHL (R : | F 
: DD O06E PUSHL #2 : ; 
DD 0007 PUSHL TEMP : ; 
000000006 00 04 FB 0072 CALLS #4, LIBSSIGNAL ; : 
50 52 00 00079 MOVL TEMP, RO : ; 
04 0007¢ RET : ; 
58 14 AE 9E 0007D 18: MOVAB HDRBUF, HDR : 1062 ; 
5B FEOO CD 9E 00081 MOVAB HDRBUF+512, HOM + 106 ; 
0400 8F 00 6E a 00 2¢ 00086 MOVCS #0, (SP), #0, #1024, HDRBUF + 1064 : 
59 OA AB 9E 0008F MOVAB 10(R8), ENT + 1065 ; 
51 6E 00000040 8F C1 00093 ADDL3 #64, (SP), R1 + 1072 ; 
50 61 DO 00098 MOVL (R15, RO : : 
QOOOFFFF  8F 50 01 00096 CMPL RO, #65535 ; : 
0S 18 DOOA BLEQU : : 
50 FFFF 8F 3C OOOA7 MOVZWL #65535, RO ; : 
52 50 DO OOOAC 28: MOVL x : : 
53 6F 000000468 8F C1 OOOAF ADDL3 #72, (SP), R3 : 1073 : 
18 é 04 £1 00087 BBC #4, (R3), 3$ : : 
1¢ «AA OS 00088 TSTL g8iRi0) : 1076 : 
35 13 OOBE BEQL $ : : 
31 28 «AA SOEB 990¢ BLBS  40(R10), 5$ : 1078 ; 
000000006 8F DD 000C4 PUSHL #EXCH$_VIRTNOCHANGE + 1080 : 
000000006 00 9] FB OOOCA CALLS #1, LIBSSIGNAL $ : 
2 11 00001 BRB 5$ : 1081 ; 
50 1¢ AA 09 9003 3$: MOVL g8(R10), RO : 1083 ; 
1¢ 13 000D BEQL $ : ; 
52 50 1 00009 CMPL RO, BMAX > 1086 : 
14 18 ope BLEGU : : 
52 DD 000D PUSHL BMAX > 1089 3 
1 DD OOOE PUSHL # : : 
000000006 8F DD 0 E PUSHL HEXCHS RT11_TOOMANYBLK ; : 
000000006 00 F E CALLS #3, LIBSSIGRAL F ; 
50 D OOEF MOVL MAX, RO : 1090 é 
52 50 00 000F2 4$: MOVL RO, R2 > 1085 ; 
56 3 D 0 F5 5$: MOVL Re. BN : 1083 : 
28 D1 O00F CMPL = RO, #4 : 1098 3 
1E OO00FB BGEQU 6$ : 3 
52 D0 O00F OVL #40, R2 : : 
56 DO 00100 6$ MOVL Re BNUM : ; 
24 AA OD ot TSTL 3 {r10) > 1106 : 
07 +1 1 BEQL $ : : 


’ 9 | 
EXCHSINIT NIT verb dispatch and misc routines 16-Sep-1984 259: AX-11 Bliss-32 V4.0-742 Page 38. E 
ya ty initereit inte 127808-1 382 90:39:05 YEXCHNG SROJEXCINIT.B32s1 . as V 
04 AE 24 «AA 00 108 MOVL § 36(R10), SNUM ; | : 
» 10D BRB : : 
00000200 = &F 6 D1 OO10F 7$: CMPL NUM, #512 + 1110 ; 
6 1A 116 BGTRU : ; 
04 AE 1 p0 11 OVL #1, SNUM : ; 
: 1 11¢ BRB ; | : 
00000800 8F D1 OO11E 8S: CMPL NUM, #2048 : 1111) ; 
06 1A 001 BGTRU : | ; 
04 AE 4 b0 1 OVL #4, SNUM : | F 
13 1 128 BRB 11 : | ; 
00003000 = &F 56 D1 00120 9S: CMPL _ BNUM, #12288 + 1112 ; 
06 1A 91 BGTRU 10$ : ; 
04 AE dO 001 MOVL #16, SNUM : | ; 
04 11 O013A BRB 11$ : | ; 
04 AE iF 00 1 C 10$:  MOVL #31, SNUM > 1113) : 
OC AE 04 AE 01 140 11$:  ASHL. #1, SNUM, START + 1119 ; 
OC AE 6 CO 0146 ADDL as START : ; 
50 OC AE 0 C1 OO14A ADDL3 #32, START, RO + 1120 ; 
56 0 01 OO14F CMPL RO, BNUM F ; 
19 1B 00152 BLEGU 12$ : ; 
04 AE 01 DO 00154 MOVL #1, SNUM + 1123 ; 
OC AE 08 DO 00158 MOVL #8. START + 1124 : 
01 DD 0015¢ PUSHL #1 + 1125 ; 
01 DD O13E PUSHL #1 : ; 
000000006 8F DD 0016 PUSHL HEXCHS RT11_TOOMANYSEG : : 
000000006 0 03 FB 00166 CALLS #3, LIBSSIGRAL 3 ; 
50 000000006 EF D 90160 12$:  MOVL  EXCHSA Gat RO : 1130 : 
O1E6 CB AO C 28 00174 MOVC3 #12, 32(ROS, 484(HOM) : ; 
O1FO CB 0000" CF C 28 00178 MOVC3 #12. P.AAV, 496(HOM) + 1131 ; 
146 AE 0000' cf 006A BF 28 0018 MOVC3 #106, BOOT PROGRAM, HDRBUF : 1132 3 
7 14 AA 9E 0018C MOVAB 20(R10), R > 1135 : 
0c 20 04 8B ore oy 26 20190 MOVCS (R7), @4(R7), #32, #12, 472(HOM) ; 1136 : 
0c 20 04 87 i 67 2c 00199 MOVCS (R7), @4(R7), #32, #12, HDRBUF +63 : 1137 ; 
01D2scB 01 BO 001A1 MOVW #1, 466 (HOM) + 1140 ; 
0104 CB BEEEQ006 8F DO 001A6 MOVL #-1897005050, 468(HOM) + 1141 : 
58 DD OO1AF PUSHL HDR + 1145 : 
92 DD 00181 PUSHL #2 : ; 
E D4 0183 CLRL. = (SP) : ; 
OC AE DD 0018 PUSHL  12(SP) : ; 
000000006 EF 04 FB 0188 CALLS #4, EXCHSIO_RT11_WRITE : : 
08 AE 0 dO 001BF MOVL RO, STATUS : | 3 
70 08 AE £9 OCs BLBC_ STATUS, 16$ : F 
50 66 00000054 8F C1 O01C ADDL3 #84, (SP), RO ; 1151 | : 
5 60 DO OOICF MOVL (ROS, RTV : : 
10 Ag D4 0010 CLRL —- 16 (SP) : 1152. ; 
3 D3 1D TSTL RIV : : 
10 AE DB 00109 Feet datsp) pa 
52 asoegors F 00 oie MOVL #201 2548171, R2 ; 1155) : 
é) 0275 F C OO1E MOVZWL #629, R1 : 3 
° pooonoo0s éF 16 OOIEB Tea -EXCASUTIL BLOCK. CHECK ak 
0206 C7 68 $90 i 38 iff MOVC Bei) (HOM) Seetaty) : 1136 | ; 
0400 8F 00 6E 0 2C OO1F9 138 movcS #0, (SP), #6, #1024, HDRBUF > 1161 : 
146 AE 200 ; | ; 
| 
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53 OC «AE 9} 
1 
OC AE 
setae’ EF ge 
0 AE 0 
14 08 A 
FFE2 52 02 : 
10 A 
0000V CF 9 
08 A 
0 08 AE 
009D 
68 04 AE 
gf A8 01 
06 AB 0 AA 02 
08 As uc Ag 
01 Ag 8 
02 AY 80E82158 £ 
06 Ag 26F4 ef 
51 9 
00000000G_ EF 
08 A? 56 08 As 
50 06 A8 
59 OE A049 
51 O1FE C8 
: 3 
7E F7 4 
00000000G_ 8F 
00000000G 40 03 
01 A? 08 
27 10 AE 
OCOE (C7 68 0200 or 
00000000G_ EF 01 
13 50 
7E F9 af 
000000006 4 
00000000G 00 9 
} 
6 
Oc AE 
00000000G_ EF ge 
08 af 0 
5 08 AE 
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; Routine Size: 736 bytes, Routine Base: EXCHSINIT_CODE + 0788 


gt eee Bliss-32 V4.0-742 
EXCHNG.SRCJEXCINIT.B32;1 


#1, START, R3 


12(SP) 
#4, EXCHSIO_RT11_WRITE 
STA 


status, 16$ 
R3, # 

HDR 
START 
2, INIT_ZERO_HOME_BLOCKS 
RO, STATOS 

STATUS, 17$ 


60, 2¢ENT) 
NTS 


FORMAT_CURRENT_DATE 
Aum, 8 (ENT) 


zazoe- 0-1-2 
mnN~zrOw~ 


XCH$_BADLOGIC 
LIBSSTOP 
1(ENT) 


. 19% 
» (HDR), 3086(RTV) 


#249, =(SP) 
#1 


#EXCHS$_BADLOGIC 
#3, LIBSSTOP 
HOR 


#1 

12(SP) 

#4, EXCHSIO_RT11_WRITE 
RO. STATUS 

STATUS, RO 
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ae 9 nit verb dispatch and misc routines 
nit_zero_home_blocks (start, buf) 


19 1 sore ROUTINE init _zero_home_blocks (start, buf) = 


lee 
! 


2 


> + 


FUNCTIONAL DESCRIPTION: 


future mounts. 
INPUTS: 


VMEWN “OOOO 


- the address of a 1 

IMPLICIT INPUTS: 

work area for INIT 
OUTPUTS: 

none 
IMPLICIT OUTPUTS: 

none 
ROUTINE VALUE: 

Success or worst error 
SIDE EFFECTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: disk blocks may be zeroed 


PPADS BE EEE EE EE 


NOP ASAAAAO 
NONVSISSAF SIE SSSVSVF UNS SSS SESS ZSS 


Sdbgtrc_prefix ("init_zero_home_blocks> "); 


LOCAL 
blockfact, 


elta, 
device_char : $bblock thee Length], 
devchar_desc : VECTOR (2, LONG), 

n 


pon, 
status 
BIND 
init 
volb 


Monn 
BREE EEF FAWN MANNION PIPINPINIDN 2 2 PO OO 


SAW EW CO OD NA UE WIN 0 OD NA UNE WIN 0 OONO UE WN (OC OONOUE wr 


qxchse gbl Concese, init_work) : Sref_bblock, 
init Cinit$a_volt : $ref_bblock 


ek kk a aa a a a a at wt 4 SS SY SY Ln Ls SH YH SY Os HH HY YH SY 
ek kk aa a i ik ak at at at a a St 2 Ls Ls SS SS os SY YS SD HY SY 
me a a a a a a a a = = 4 = 2 2 
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ZSBTTL ‘init_zero_home_blocks (start, buf)’ 


ee Bliss-32 V4.0-742 
EXCHNG.SRCJEXCINIT.832;1 


Zero any possible Files-11 home blocks on the volume to prevent extraneous privilege problems with 


start - the pbn of the firs uninitialized block on the volume 
buf 4-byte buffer which has been set to zeroes 


device blocking factor 

home block search delta ‘ 
block for device characteristics 
desc for above 

physical block number to check 


pointer to our work area 
pointer to exchange VOLB structure 


41 
(14) | 


RA 


i 

Cone 
PAPAS OUM 
CODONOUS WOOO 


~ 
_ 


7 


eee Re Rei en te ee ee ee ee ee ee eee 
SELELELLLSSELSILESLSSSLSSR ALLS 


PONIPITONIPININONONORY — 2 2 
Oe a ee dd dd 
~ 
ww 


= 
oO 


H 9 
VOr-000, ss Anit_vero_homessLocks (starts but)’ 1e$0p-1986 92:29:05 LExcrugs SReSEXCINI fT cBSo+1 heat 


§ TH 


Ne —E —_ 1 
| 


_ virtyel velupes at commas pertore 8 morass oon block ocean, Stace pe gh ga yig ty as omy | Copeg 

! the physical device geometry. $s unfortuna since a virtual volume m e a copy of (an co 

' back to) a phys} & device. Usually, this Gopy wilt only be between a small ask (i.e. tloppy or 1Us8) 4 
w e 


cal 
virtual volume. We will use our knowlege of these disks to perform ad hoc home block zeroing. 


—toee ee 


F .volb Cvolb$v_virtual] 
HEN 
BEGIN 
status = true; ! Assume success 
SEL FC TONE -volb Cvolb$l_volmaxblock] OF 
[494] : Hf gotert LEQu 8 ! Single density floppy puts alternate home on pbn 8 
status = exch$io_rtil_write (.volb, 8, 1, .buf); 
(988) : if ,stere LEQU 15 ! Double density floppy puts alternate home on pbn 15 
status = exch$io_rtli_write (.volb, 15, 1, .buf); 
COTHERWISE] :~ ; ! Ignore large disks, TUS8 puts home blocks on pbn 1 and 2 w 
! we know that we have already hit 
TES; 
ooo -Status; ! ALL done with virtual volumes 
Read the device characteristics 
devchar_desc £0} = dib$Sk_length; ! Init length of char buffer 
devchar_desc 


if wot (status = $getchn (chan=.volb Cvolb$w_channel], pribuf=devchar_desc)) 
$exch_signal_stop (.status); 


1] = devicé_char; ' “and address of buffer 
| 


9 | 

EXCHSINIT NIT verb dispatch and misc routines 1b-se -1984 00:59: AX-11 Bliss-32 V4.0-742 Pp 43) 
y06~000 rte. bore Bene Blache (start, buf) 1 7300-1382 93:33:08 LEXCHNG-SRe EXCINIT.832;1 39° 16) 
| 


93 ! (Home block geometry calculations borrowed from <INIT.SRC>RDHOME .B32) 


94 : 
! Compute the home block search delta from the volume qeonetry in the device table. This is done according t 
following rules, where volume geometry is expressed in the order sectors, tracks, cylinders: 
i nx ix 4: 1 | 
; Txnx ls 1 
1x 1x on: 1 
i nxmxt: n+1 
; nx ix m: n+1 
Tx nx m: n+1 
sx tx c: (t+1) #541 
b 


lockfact = (.device_char dipep.sectorg, 
* .device_char [dib$b_tracks 
* .device_ char [dib$w_cylinders)) 
/ .device_char Cdib$l_maxblock]; 


delta = 1; 
”. -device_char Cdib$w_cylinders] GTR 1 


,*device_cher Cdib$b_tracks] GTR 1 
delta = .delta + .device_char Cdib$b_tracks]; 
uF gtevice.cher Cdib$b_sectors] GTR 1 
‘ ,Gevlcechar CdibSw_cylinders] GTR 1 
THEN -device_char Cdib$b_tracks] GTR 1) 
delta = (.delta * .device_char [dib$b_sectors] + .blockfact) / .blockfact; 
IF .delta EQL 0 


gdelte GTRU .device_char Cdib$l_maxblock] / 10 


Sew alueso Se nee Sa ae 
DONOVLWN —O OONOUESWN (OO ONOU SWAN OOONOUS wr 


WWAAAAURIRIRIRININININNIN 4 3 BQO OO OOOO DOOD 0 
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a ee ed od ed od dd ds 2d wd) td dd 


50 

51 delta = 1; 

2g $trace_print_fao ("block factor is !UL, delta is 'UL', .blockfact, .delta); 
54 ' Search for the home blocks to zero. To save time, we will just zap the first five possible positions for 
55 ! home blocks. Note the potential hole: Disks with the home block far into the disk might not be completel 
2 zeroed and might have protection anomalies. C'est la vie. 
58 pee = 1; ! Start search at pbn 1 

59 4 ECR j FROM 4 TO 0 

60 & dO 

61 4 BEGIN 
$6 4 $trace_print_fao (‘index !UL, pbn !UL*, .j, .pbn); | 
6 4 IF .start LEQU .pbn 
64 4 THEN 
65 2 & if wor (status = exch$io_rtll_write (.volb, .pbn, 1, .buf)) 
6 4 ; RETURN .status; 

68 4 pbn = .pbn + .delta; 


50 000000006 
50 
40 48 


QOO001EE 


000003DC 


04 


000000006 


000000006 


54 


: 1269 1350 END; 
HRT seu ta 
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>> 


Bc 92:25:05 EEXcuNceSReSEXCINI f-0se, 


SYSSGETCHN, LIBSSTOP 


INIT_ZERO_HOME_BLOCKS, S$ R2,R3,R4,R5,R 
RTI é ave 6 


EXCHSIO WRITE, R 
-124(SPJ, § 
4 . EXCHSA_GBL, RO 


( R 
#4, 72(R3), 4$ 
1. status 
68(R3), RO 
RO, #494 


os #8 


START, #15 
BUF 
#1 
#15 
R3 
#4, EXCHSIO_RT11_WRITE 
R STATUS 

#116, DEVCHAR_DESC 

DEVICE CHAR, BEVCHAR_DESC+4 
DEVCHAR_DESC 
=(SP) 

74(R3), =(SP) 

#5, SYSSGETCHN 

0 STATUS 
STATUS, 5$ 

STATUS 
#1, LIBSSTOP 
DEVICE CHARS, RO 
DEVICE “CHARS * R2 
Ro, R 

DEVICE CHAR#10, R4 
R4, R 


DEVICE CHAR+112, RO, BLOCKFACT 
4e DECTA 


3; Routine Size: 


01 
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Routine Base: 


T verb dispatch and misc routines 
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04 
08 


EXCHSINIT_CODE 


MVIMVINIO —O & — FP QDOOCOMOOMMUIM FP OP UI PuUIiPporuvico,Yr 
ARVIN O FO" MOM FH SW PP PWS SPMMMonmuwn snow 


OUNOMIO "WOO -9900 9 $90 -GM0OOO-omMm—00o— oo -@D 
fof ovuowwol & “0008 ]—NWUINOf > @ - ow OF @ OW -- 


SOOQOQOQOoooooooooooooQoQoQoQoQoQoQoQoQQoQoQoQoooooooe 


COOOCOCSSSOOOCOOOCOOCOSOOOOSOOOOOOSOOOOOOOOOOSO 


aa 


kK 
w$2p-198¢ 12:29:05 LEXcHNGeSRESEXCINI T0571 


DEVICE CHAR+10, 1 
6 


RO 

DEVICE_CHAR+9, #1 
DEVICE CHAR+9, RS 
R5, DELTA 

DEVICE _CHAR#8, rt 
RO, 7$ 
EVICE_CHAR*9, rt 


DEVICE_CHAR+8, RO 

DELTA, RO 

BLOCKFACT, RO 

BLOCKFACT, RO, DELTA 
DELTA 

#10, DEVICE_CHAR+112, RO 
DELTA, RO 


“ 
START, PBN 

12$ 

BUF 

" 

#AM<R3,R4> 

#4, EXCHSIO_RT11_WRITE 
RO, STATU 

STATUS, 138 

DELTA, PBN 

J, 11 

STATUS, RO 


Be Se Se Se Se Se Se Se Be Ge Se Be Ge Se Se Fe Fe Be Be Se Ge Se Ge Se Be Fe Ge Se Be Ge Se Se Se Se Be Be 


; Elapsed = 03 18.7 
3 Lines/CPU Min: 146 

3 Lexemes/CPU-Min: 25197 

3 paneey Used: 279 pages 
3 3 


; Compilation Complete 


NIT verb dispatch and misc routines 1b-5e Sep-1984 9: AX-11 Bliss-32 V 4,05 742 Page 46 
in {t zero. Rene blocks (start, buf) 9007 13b2 99: 33 ‘3 EXCHNG. SRC EXCINI T.632;1 ° (17) 
1354 END 
1388 0 ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 
Bytes Attributes 
IT ge 6 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, sp aokhe'od Sng baht ti 
DE 2985 NOVEC.NOWRT, RD + EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
H Library Statistics 
: eoceeee= Symbols -oeee--- Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28: ever tea. 18 -L32;1 18619 122 0 1000 00:01.8 
: ~$255$0UA28: CEXCHNG. OBJ JEXCLIB.L32;1 1151 142 12 79 00:01.3 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS$S:EXCINIT/OBJ=OBJ$S:EXCINIT MSRC$:EXCINIT/UPDATE=(ENHS$:EXCINIT) 
hg 2985 coge,* 286 data bytes 
| 
| 


NT CORPORATION 
D PROPRIETARY 
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